Question

VB中怎么实现UNICODE与汉字互转？ 哪位高手帮可以帮我写一个互转函数吗？

比如UNICODE编码：\u804A\u57CE\u5E02 转换成文字后是“宁波市”

我的总财富20分全给了。
刚才说错了，\u804A\u57CE\u5E02 转换成中文后应该是“聊城市”

Answer 1

Dim Code As String, Char As String
Code = "\u804A\u57CE\u5E02"
Code = Replace(Code, "U", "u")
p = Split(Code, "\u")
For i = 0 To UBound(p)
If Not p(i) = "" Then Char = Char & ChrW("&H" & p(i))
Next
MsgBox Char