vb.netu转中文 vb转译字符

临时用VB做了个抓取网页数据，但是网页返回的中文是unicode编码，怎么转为中文。

//unicode编码转换为中文

    public static string UnicodeToGB(string text)

    {

        System.Text.RegularExpressions.MatchCollection mc = System.Text.RegularExpressions.Regex.Matches(text, "\\\\u([\\w]{4})");

        if (mc != null  mc.Count  0)

        {

            foreach (System.Text.RegularExpressions.Match m2 in mc)

            {

                string v = m2.Value;

                string word = v.Substring(2);

                byte[] codes = new byte[2];

                int code = System.Convert.ToInt32(word.Substring(0, 2), 16);

                int code2 = System.Convert.ToInt32(word.Substring(2), 16);

                codes[0] = (byte)code2;

                codes[1] = (byte)code;

                text = text.Replace(v, Encoding.Unicode.GetString(codes));

            }

        }

        else

        {

 

        }

        return text;

    }

给你个C#.net的代码做一下参考，原理都是类似的。

VB.NET 如何将"\u5E93\u59C6"转为汉字

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

MsgBox(unicode2hz("\u59C6"))

End Sub

Function unicode2hz(ByVal uni As String) As String

uni = uni.Replace("\u", "")

Dim arr(1) As Byte

arr(1) = Convert.ToByte(Convert.ToInt16(uni.Substring(0, 2), 16))

arr(0) = Convert.ToByte(Convert.ToInt16(uni.Substring(2), 16))

unicode2hz = System.Text.Encoding.Unicode.GetString(arr)

End Function

在VB中如何把UTF-8编码转换为中文？

可以试下自己写转换的函数,给你点参考资料

转自新帆新闻组:

第一步：用二进制法读入文本数据，赋值给字节型数组，并判断前3个字

节是否UTF－8标记，如果是，才进行以下的处理

第二步：逐个字节判断是否汉字编码，如果是，就再提取后两个数组元

素，共三个数组元素来加以处理

第三步：将这三个数据都转换成16进制数据

第四步：将三个16进制数据都转换成二进制数据

第五步：从第一个二进制数据中去掉前4位，从第二、三个二进制数据

中分别去掉前2位，并将这三个处理后的二进制数据依次连接，成为一

个16位的字串

第六步：从这个二进制串中分别提取前8位和后8位转换成两个10进制

数据，这两个数据就是汉字的Unicode码了，将它们赋值给一个字符型

变量即可

vb.net 中 \uxxxx这类的编码实现转换成中文

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim S1 As String

Dim S2 As String

Dim S3 As String

Dim I1 As String

S1 = "\u652f\u4ed8\u5b9d"

S1 = Trim(S1)

Do While Len(S1) 1

I1 = InStr(1, S1, "\u")

If I1 0 Then

S3 = S3 Strings.Left(S1, I1 - 1)

S2 = "H" Mid(S1, I1 + 2, 4)

S2 = ChrW(S2)

S3 = S3 S2

S1 = Strings.Right(S1, Len(S1) - I1 - 5)

Else

S3 = S3 S1

S1 = ""

End If

Loop

MsgBox(S3)

End Sub

如何将VB系统改成中文的

只能重新安装，如果是英文版可以安装语言包成为中文版本，但是中文不能变成英文，最新的vista u版可以随意切换任何语言。需要安装语言包

关于vb.netu转中文和vb转译字符的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。