vb.net unicode编码转中文字符

Private Function UniTostr(ByVal body As String)
Dim S2 As String
Dim S3 As String = ""
Dim I1 As String

body = Trim(body)
Do While Len(body) > 1
I1 = InStr(1, body, "\u")
If I1 > 0 Then
S3 = S3 & Strings.Left(body, I1 - 1)
S2 = "&H" & Mid(body, I1 + 2, 4)
S2 = ChrW(S2)
S3 = S3 & S2
body = Strings.Right(body, Len(body) - I1 - 5)
Else
S3 = S3 & body
body = ""
End If
Loop
UniTostr = S3
End Function

上一篇: PHP CURL使用POST发送json数据
下一篇: cefsharp winfrom 保存用户登录状态
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: vb.net
相关日志: