圣光

摘要：'****************************************************************************************************''Name.......... WEB Page Read Program'File.......... WEBRead.frm'Version....... 1.0.0'Dependencies.. XMLHTTP Object'Description... Dynamic read URL html data'Author.. 阅读全文

摘要：这个问题困惑我很久了,以前总是要让用户自己根据网页编码来选择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 Obje 阅读全文