VB处理cjk编码问题
例如一段 cjk编码的汉字 \u60a8\u6765\u665a\u5566 如何转换成gb2312的汉字呢 是转换成汉字 不是编码
[解决办法]
Private Sub Command1_Click()
Dim str As String
str = "\u60a8\u6765\u665a\u5566"
Dim sarr() As String
sarr = Split(str, "\u")
Dim i As Long
Dim dst As String
For i = 0 To UBound(sarr)
If Len(sarr(i)) <> 0 Then
dst = dst + ChrW$(Val("&H" + sarr(i)))
End If
Next
Dim gb2312() As Byte
gb2312 = StrConv(dst, vbFromUnicode)
End Sub
这个字符串是：你来晚啦
