Private Sub Form_Click() Dim a As String, b() As Byte, x As Long a = "城际通" b = a For x = 0 To 5 Debug.Print Hex(b(x)); " "; Next End Sub 输出结果: CE 57 45 96 1A 90
Dim c As Long c = Len(StrConv("城际通", vbUnicode))c的结果为4,然而正确的值应该为6。不知何故?请DX们指教。用其他的汉字进行同样的运算就没有问题。
这里 name1 现在就是 vbunicode 你还要转换什么~
Dim a As String, b() As Byte, x As Long
a = "城际通"
b = a
For x = 0 To 5
Debug.Print Hex(b(x)); " ";
Next
End Sub
输出结果:
CE 57 45 96 1A 90
c = Len(StrConv("城际通", vbUnicode))c的结果为4,然而正确的值应该为6。不知何故?请DX们指教。用其他的汉字进行同样的运算就没有问题。
StrConv("城际通", vbUnicode)
直接用 "城际通" 就可以了
VB本身处理字符串就是unicode码的
要取得字符串内存占用长度应该是
lenb("城际通")