vbs中将GB2312转Unicode的代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 今天写了一个类似于下面的程序： 复制代码 代码如下: 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 只可惜效率太低，就当练练手吧。 原文：http://demon.tw/programming/vbs-gb2312-unicode.html |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于vbs中将GB2312转Unicode的代码的所有评论
