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://scyanting.com/article/ddsdecj.html