游客

标题:解决XMLHTTP获取网页中文乱码问题
正文:
这个问题困惑我很久了,以前总是要让用户自己根据网页编码来选择UTF-8还是GB2312 。今天遇到一个读取文件乱码,突然想起了以前用XMLHTTP获取网页源代码乱码问题,嘿嘿~一同解决了。 跟大家分享一下吧!主要是对编码的判断,然后进行相对应的转换即可。代码如下：边框 小边框 Option ExplicitPrivate Sub Form_Load() '测试 Text1.Text = GetHtml("http://www.NewXing.com")End SubPublic Function GetHtml(url As String) Dim xmlHttp As Object Set xmlHttp = CreateObject("Microsoft.XMLHTTP") xmlHttp.open "GET", url, True xmlHttp.send (Null) While xmlHttp.ReadyState <> 4 DoEvents Wend GetHtml = BytesToBstr(xmlHttp.responseBody)End FunctionPrivate Function BytesToBstr(Bytes) Dim Unicode As String If IsUTF8(Bytes) Then '如果不是UTF-8编码则按照GB2312来处理 Unicode = "UTF-8" Else
[<<][[1]][2][3][>>]

查看评论(0)
发表评论



首页