vb 怎么转换这个\u6731编码的啊 各位大神求求你们了 vb6.0的怎么转换

Question

vb 怎么转换这个\u6731编码的啊 各位大神求求你们了 vb6.0的怎么转换

Answer 1

Private Sub Form_Load()
MsgBox futf8_2("\u6731")
End Sub
'utf-8编码 反函数之二 处理带其他文本的情况
Function futf8_2(str)
c = Split(str, "\u")
For i = 0 To UBound(c)
If Len(c(i)) = 4 Then
futf8_2 = futf8_2 + ChrW2(c(i))
Else
futf8_2 = futf8_2 + ChrW2(Left(c(i), 4)) & Mid(c(i), 5)
End If
Next
End Function

'转换16进制为Unicode 出错时返回原文本
Function ChrW2(str)
On Error Resume Next
ChrW2 = ChrW("&h" & str)
If Err Then ChrW2 = str
End Function

Answer 2

bxnl
780