Access如何判断字符串中包含双字节字符_access模块-access类模块-access函数-access VBA

Access如何判断字符串中包含双字节字符

时间：2005-06-09 11:52 来源：ACCESSXPFAQ 作者：zhuyiwen… 阅读：次

如何判断字符串中包含双字节字符

作    者：朱亦文
发布日期：2005年6月9日
摘    要：判别字符串是否包含中文或其它非ASCII字符串的函数HasWideChr。
往往我们要判断字符串中是否包含了中文字符，我们用下面这个函数HasWideChr可以做到。

正    文：

（问）：如何判断字符串中包含双字节字符，例如中文字符？
（答）：往往我们要判断字符串中是否包含了中文字符，我们用下面这个函数HasWideChr可以做到。

将下列代码粘贴到一个新模块中，调用函数HasWideChr即可。

Public Function HasWideChr(ByVal str As String) As Boolean
' 判别字符串是否包含中文或其它非ASCII字符串的函数HasWideChr
' 作者：朱亦文
' 日期：2005.06.09

    Dim ByteGB() As Byte
    Dim LenW As Integer

    ByteGB = StrConv(str, vbFromUnicode)
    LenW = UBound(ByteGB) + 1

    HasWideChr = Len(str) <> LenW
End Function

(责任编辑：admin)

顶一下

(1)

100%

踩一下

(0)

上一篇：如何在OFFICE各软件保护VBA代码，不允许使用者查看代码？
下一篇：Access人民币大写