判断是否字符串中包含汉字-易勋
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


判断是否字符串中包含汉字

发表时间:2016/12/1 12:36:23 评论(1) 浏览(7396)  评论 | 加入收藏 | 复制
   
摘 要:判断是否字符串中包含汉字
正 文:
Public Function IncludeChinese(ByVal Expression As String) As Boolean
    IncludeChinese = False
    Dim bytData() As Byte: bytData = Expression
    Dim lngLower  As Long: lngLower = CLng("&H4E00")
    Dim lngUpper  As Long: lngUpper = CLng("&H9FA5")
    Dim lngI As Long
    For lngI = 0 To UBound(bytData) Step 2
        Dim lngCode As Long
        lngCode = CLng("&h" + Hex(bytData(lngI) + bytData(lngI + 1) * 255))
        If lngCode >= lngLower And lngCode <= lngUpper Then
            IncludeChinese = True
            Exit Function
        End If
    Next
End Function

Access软件网交流QQ群(群号:198465573)
 
 相关文章
Excel中将汉字转化为拼音(实例)  【杏林求真  2013/4/25】
全汉字转换拼音码首字母(带:完整汉字拼音(简繁体)、全角字母数字转...  【litao  2013/9/7】
[转载]SQLServer汉字转拼音函数  【金宇  2015/3/17】
【SQLServer自定义函数】取出字符串中的汉字、字母或是数字  【金宇  2015/4/14】
常见问答
技术分类
相关资源
文章搜索
关于作者

易勋

文章分类

文章存档

友情链接