vb点虐 u转中文 vb转译字符

如何将VB系统改成中文的

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

创新互联公司主要从事网站建设、成都网站建设、网页设计、企业做网站、公司建网站等业务。立足成都服务科尔沁,十年网站建设经验,价格优惠、服务专业,欢迎来电咨询建站服务:18982081108

vb点虐 中 \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做了个抓取网页数据,但是网页返回的中文是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#点虐 的代码做一下参考,原理都是类似的。

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点虐 u转中文 vb转译字符
转载注明:http://myzitong.com/article/ddsdecj.html