Question

VB 中 unicode 16 编码 问题

在网上看到 Unicode编码中
\u4f60\u597d\u554a 意思为 “你好啊”

我现在想将 \u4f60\u597d\u554a 转为汉字,
请问用VB该怎么写呢?
在百度问题里找到,
用java有代码实现,
http://zhidao.baidu.com/question/195992289.html

可是我用VB的~ - -

Answer 1

Unicode编码用两个字节代表一个汉字。 \u4f60中，\u表示是Unicode编码，后面4f60是一个两字节的十六进制数，就是“你”的Unicode编码。
用chrW()函数可以把 Unicode编码 转换成相应的汉字。例如
Print ChrW(&H4F60)
Print ChrW(&H597D)
Print ChrW(&H554A)
会输出：
你
好
啊
注意ChrW(&H554A)中用&H表示十六进制数，不再用\u。
也可用下面的方法：
Dim a(5) As Byte
a(1) = &H4F
a(0) = &H60
a(3) = &H59
a(2) = &H7D
a(5) = &H55
a(4) = &H4A
Print a
运行，会输出：
你好啊

完整程序如下：
Private Sub Command1_Click()
Dim s, c() As String, a, i
s = "\u4f60\u597d\u554a"
c = Split(s, "\u")
For i = 1 To UBound(c)
a = a & ChrW("&H" & c(i))
Next
Print a
End Sub

Answer 2

Dim S1 As String, S2 As String, S3 As String
Dim I1 As Long, I2 As Long
S1 = "12\u4f6044\u597d3d33\u554a22"
S1 = Trim(S1)
Do While Len(S1) > 1
I1 = InStr(1, S1, "\u")
If I1 > 0 Then
S3 = S3 & Left(S1, I1 - 1)
S2 = "&H" & Mid(S1, I1 + 2, 4)
S2 = ChrW(S2)
S3 = S3 & S2
S1 = Right(S1, Len(S1) - I1 - 5)
Else
S3 = S3 & S1
S1 = ""
End If
Loop
MsgBox S3