Question

关于vb，怎么把中文字符转换为Unicode码？

“123,测试,test”
转为
003100320033002C6D4B8BD5
002C00740065007300743002
我用hex(ascw())来转结果是

3132332C6D4B8BD52C746573743002

其中的数字和字母都少了00，怎么办

求解决方法

Answer 1

VB编译的程序，本身对字符串的保存、处理都是用的Unicode编码，无需转换即可得到，只不过，Unicode是双字节编码，在内存中按照高位在前，低位在后的格式保存，因此显示时需要调一下位置，代码如下：

Private Sub Command1_Click()
Dim s As String, a() As Byte
s = "123,测试,test"
a = s
Text1 = ""
For i = 0 To UBound(a) Step 2
Text1 = Text1 & Format(Hex(a(i + 1)), "00") & Format(Hex(a(i)), "00") & " "
Next
End Sub

追问

你好,那个format我没看懂，能解释一下吗

追答

format(数值, "00") 可以将数值转换为 两位数的字符串，不足两位，前面补0

Answer 2

s = "1"
ss = Right("000" & Hex(AscW(s)), 4)

Answer 3

http://bbs.csdn.net/topics/330230544