时间:2021-05-22
今天写了一个类似于下面的程序:
复制代码 代码如下:
Dim http
Set http = CreateObject("msxml2.xmlhttp")
http.open "GET","http://.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
声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。
复制代码代码如下:///UTF-7转换GB2312编码的方法/////////publicstaticstringutf72Unicode(stringstr7
电脑中将字体调为“仿宋gb2312”时首先需要下载该字体。以Word为例,具体方法为: 1、首先搜索下载“仿宋GB2312字体”文件,后缀为“.ttf”。
先看下重现代码1,gb2312.html该文件编码为gb2312复制代码代码如下:p{color:red;}测试functionloadJS(src,chars
1、截取GB2312字符用的函数PHP代码复制代码代码如下:2.截取utf8编码的多字节字符串PHP代码复制代码代码如下:3.UTF-8、GB2312都支持的汉
如下所示:$paramStr=iconv("UTF-8","GB2312//Ignore",$paramStr);$paramStr=iconv("GB2312