最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

vbs中將GB2312轉(zhuǎn)Unicode的代碼

 更新時間：2011年02月03日 15:33:00   作者：  
現(xiàn)在都是utf-8編碼的時代了。responseText對utf-8編碼支持得很好，但是如果是gb2312編碼就會返回亂碼，有時甚至?xí)箦e。
今天寫了一個類似于下面的程序：
復(fù)制代碼 代碼如下:

Dim http
Set http = CreateObject("msxml2.xmlhttp")
http.open "GET","http://www.sina.com.cn/",False
http.send
WScript.Echo http.responseText

但是卻發(fā)現(xiàn)返回的中文都是亂碼，看了一下發(fā)現(xiàn)新浪的編碼竟然是gb2312的，汗，現(xiàn)在都是utf-8編碼的時代了。responseText對utf-8編碼支持得很好，但是如果是gb2312編碼就會返回亂碼，有時甚至?xí)箦e。無奈，只好用responseBody然后自己轉(zhuǎn)碼。
復(fù)制代碼 代碼如下:

Dim http
Set http = CreateObject("msxml2.xmlhttp")
http.open "GET","http://www.sina.com.cn/",False
http.send
WScript.Echo GB2312ToUnicode(http.responseBody)

于是就要自己寫一個GB2312ToUnicode函數(shù)，用ado很容易實(shí)現(xiàn)：
復(fù)制代碼 代碼如下:

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字符串默認(rèn)的Unicode編碼了，不過用ado不能顯示我鬼使神差的VBS水平，于是自己根據(jù)“算法”再寫了一個：
復(fù)制代碼 代碼如下:

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

只可惜效率太低，就當(dāng)練練手吧。
原文：http://demon.tw/programming/vbs-gb2312-unicode.html

相關(guān)文章

最新評論

临海市| 广安市| 云霄县| 洛南县| 平利县| 砚山县| 郸城县| 固安县| 垣曲县| 怀柔区| 广平县| 卫辉市| 曲松县| 大港区| 五家渠市| 南溪县| 彭山县| 瓮安县| 靖州| 永安市| 无为县| 赫章县| 延边| 营口市| 靖边县| 大兴区| 绵竹市| 内丘县| 嵩明县| 屏南县| 平舆县| 碌曲县| 汶川县| 崇义县| 深州市| 宝兴县| 望都县| 都兰县| 阜城县| 云和县| 株洲县|