VBA基础
Access如何判断字符串中包含双字节字符
2005-06-09 11:52:05
Dim ByteGB() As Byte Dim LenW As Integer ByteGB = StrConv(str, vbFromUnicode) LenW = UBound(ByteGB) + 1 HasWideChr = Len(str) <> LenWEnd Function
Dim ByteGB() As Byte Dim LenW As Integer ByteGB = StrConv(str, vbFromUnicode) LenW = UBound(ByteGB) + 1 HasWideChr = Len(str) <> LenWEnd Function