足球游戏_中国足彩网¥体育资讯$

vbs中将GB2312转Unicode的代码
来源:易贤网 阅读:1179 次 日期:2016-07-07 14:40:32
温馨提示:易贤网小编为您整理了“vbs中将GB2312转Unicode的代码”,方便广大网友查阅!

现在都是utf-8编码的时代了。responseText对utf-8编码支持得很好,但是如果是gb2312编码就会返回乱码,有时甚至会报错。

今天写了一个类似于下面的程序:

代码如下:

Dim http

Set http = CreateObject("msxml2.xmlhttp")

http.open "GET","http://www.sina.com.cn/",False

http.send

WScript.Echo http.responseText

但是却发现返回的中文都是乱码,看了一下发现新浪的编码竟然是gb2312的,汗,现在都是utf-8编码的时代了。responseText对utf-8编码支持得很好,但是如果是gb2312编码就会返回乱码,有时甚至会报错。无奈,只好用responseBody然后自己转码。

代码如下:

Dim http

Set http = CreateObject("msxml2.xmlhttp")

http.open "GET","http://www.sina.com.cn/",False

http.send

WScript.Echo GB2312ToUnicode(http.responseBody)

于是就要自己写一个GB2312ToUnicode函数,用ado很容易实现:

代码如下:

Function GB2312ToUnicode(str)

With CreateObject("adodb.stream")

.Type = 1 : .Open

.Write str : .Position = 0

.Type = 2 : .Charset = "gb2312"

GB2312ToUnicode = .ReadText : .Close

End With

End Function

这样返回的就是VBS字符串默认的Unicode编码了,不过用ado不能显示我鬼使神差的VBS水平,于是自己根据“算法”再写了一个:

代码如下:

Function GB2312ToUnicode(str)

length = LenB(str) : out = ""

For i = 1 To length

c = AscB(MidB(str,i,1))

If c <= 127 Then

out = out & Chr(c)

Else

i = i + 1

d = Hex(AscB(MidB(str,i,1)))

c = "&H" & Hex(c) & d

out = out & Chr(c)

End If

Next

GB2312ToUnicode = out

End Function

只可惜效率太低,就当练练手吧。

中国足彩网信息请查看脚本栏目
易贤网手机网站地址:vbs中将GB2312转Unicode的代码
由于各方面情况的不断调整与变化,易贤网提供的所有考试信息和咨询回复仅供参考,敬请考生以权威部门公布的正式信息和咨询为准!
关于我们 | 联系我们 | 人才招聘 | 网站声明 | 网站帮助 | 非正式的简要咨询 | 简要咨询须知 | 加入群交流 | 手机站点 | 投诉建议
工业和信息化部备案号:滇ICP备2023014141号-1 足球游戏_中国足彩网¥体育资讯$ 滇公网安备53010202001879号 人力资源服务许可证:(云)人服证字(2023)第0102001523号
云南网警备案专用图标
联系电话:0871-65317125(9:00—18:00) 获取招聘考试信息及咨询关注公众号:hfpxwx
咨询QQ:526150442(9:00—18:00)版权所有:易贤网
云南网警报警专用图标