亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > VBScript > 正文

vbs中將GB2312轉Unicode的代碼

2019-10-26 18:04:24
字體：大 中 小
來源：轉載
供稿：網友
今天寫了一個類似于下面的程序：
復制代碼 代碼如下:

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
欧美xxxx18国产| 日韩av在线不卡| 国产在线视频一区| 色综合伊人色综合网| 热久久这里只有精品| 国产精品普通话| 国产精品自产拍在线观看中文| 欧美亚洲国产精品| 国产精品一区二区三区久久久| 欧美性生交xxxxx久久久| 2019中文在线观看| 亚洲色图日韩av| 国产成人精品国内自产拍免费看| 日韩欧美亚洲一二三区| 青草成人免费视频| 欧美专区第一页| 激情懂色av一区av二区av| 欧美精品18videosex性欧美| 亚洲一区二区少妇| 国产精品欧美日韩| 亚洲精品mp4| 日韩美女主播视频| 国产噜噜噜噜久久久久久久久| 国产色视频一区| 一区二区三区久久精品| 美女精品视频一区| 国产精品自产拍高潮在线观看| 色综合91久久精品中文字幕| 97色在线播放视频| 国模叶桐国产精品一区| 久久6精品影院| 日韩在线播放av| 久久精品视频在线观看| 亚洲区bt下载| 国产婷婷成人久久av免费高清| 国产日韩一区在线| 一本色道久久综合狠狠躁篇的优点| 欧美成人h版在线观看| 亚洲国产高清自拍| 亚洲国产精品网站| 久久福利视频导航| 精品av在线播放| 亚洲精品999| 欧美专区国产专区| 欧美成人亚洲成人| 日韩风俗一区 二区| 亚洲的天堂在线中文字幕| 日韩一中文字幕| 国产综合福利在线| 亚洲国产成人精品电影| 久久综合久久美利坚合众国| 亚洲伊人久久综合| 亚洲最大福利网| 国产综合在线观看视频| 久久久久久久成人| 毛片精品免费在线观看| 亚洲人在线视频| 美女av一区二区| 欧美激情a在线| 日韩在线观看免费全| 欧美精品在线极品| 亚洲日本中文字幕免费在线不卡| 亚洲欧美另类中文字幕| 精品久久久久久亚洲精品| 欧美伦理91i| 国产精品电影久久久久电影网| 亚洲另类图片色| 2024亚洲男人天堂| 亚洲欧美日韩精品| 日韩中文字幕不卡视频| 亚洲午夜精品视频| 一区二区三区天堂av| 91久久久在线| 亚洲国产另类 国产精品国产免费| 国产午夜精品麻豆| 国产精品中文字幕久久久| 亚洲欧美日韩精品久久亚洲区| 日本一区二区不卡| 国产69精品99久久久久久宅男| 久久久久女教师免费一区| 中国人与牲禽动交精品| 亚洲福利视频免费观看| 成人精品一区二区三区电影免费| 欧洲美女免费图片一区| 在线观看久久久久久| 亚洲国产私拍精品国模在线观看| 亚洲国产成人精品久久久国产成人一区| 国产欧美日韩丝袜精品一区| 91福利视频网| 国产视频一区在线| 国产男女猛烈无遮挡91| 亚洲激情电影中文字幕| 国产成人精品av| 日韩国产精品亚洲а∨天堂免| 黄色成人在线免费| 成人免费观看a| 国产精品直播网红| 亚洲欧美一区二区三区情侣bbw| 在线观看视频99| 欧美成人手机在线| 成人做爽爽免费视频| 91产国在线观看动作片喷水| 欧美肥臀大乳一区二区免费视频| 亚洲精品久久久一区二区三区| 欧美高清视频在线观看| 国产成人激情视频| 欧美在线观看日本一区| 亚洲精品v天堂中文字幕| 欧美电影免费观看高清完整| 国产精品热视频| 性欧美视频videos6一9| 国产精品视频一区二区三区四| 91精品国产91久久久久久最新| 成人高h视频在线| 亚洲美腿欧美激情另类| 久久亚洲综合国产精品99麻豆精品福利| 亚洲精品suv精品一区二区| 日本久久久a级免费| 国产精品人成电影在线观看| 国产精品av在线| 国产精品久久久久秋霞鲁丝| 精品国产1区2区| 国产经典一区二区| 91国产在线精品| 97久久精品人人澡人人爽缅北| 国产欧美一区二区三区在线看| 热99精品只有里视频精品| 国产美女高潮久久白浆| 久久精品国产综合| 欧亚精品在线观看| 丝袜情趣国产精品| 国产精品老女人精品视频| 亚洲日本成人女熟在线观看| 亚洲黄在线观看| 91网站免费观看| 理论片在线不卡免费观看| 久久69精品久久久久久久电影好| 精品国产电影一区| 成人黄色影片在线| 欧美一区三区三区高中清蜜桃| 国产精品第二页| 欧美高清激情视频| 欧美日韩午夜视频在线观看| 一本色道久久88综合日韩精品| 亚洲午夜av久久乱码| 九色91av视频| 欧美另类高清videos| 91精品国产91久久久久久久久| 亚洲图片欧美午夜| 久久久久久一区二区三区| 欧美精品九九久久| 欧洲日本亚洲国产区| 亚洲午夜未删减在线观看| 色999日韩欧美国产| 欧美激情性做爰免费视频| 亚洲成人av片| 国产日韩欧美成人| 色一情一乱一区二区| 91老司机精品视频| 亚洲综合av影视| 日韩不卡中文字幕| 日韩成人在线视频网站| 欧美美女操人视频| 韩剧1988免费观看全集|