如果读取htt://www.sss.com/test.txt文本的内容?

huli6666 2008-12-30 05:12:31

如果获取htt://www.sss.com/test.txt文本的内容
不用 webbrowser控件
谢谢

...全文

7622 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

huli6666 2008-12-31

打赏
举报

好,谢谢

现在还是人类 2008-12-30

打赏
举报

整个过程其实很简单





Set XMLObject = CreateObject("Microsoft.XMLHTTP")   '创建对象

XMLObject.Open "GET", "http://www.sss.com/test.txt", False   '指定用GET方式提交HTTP头

XMLObject.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"   '向HTTP头添加信息

SendStr=""

XMLObject.send SendStr    '开始发送数据



HTML = XMLObject.responseText  '取得返回的文本

我一楼给你的范例看起来好像过程比较多，但是主要是因为读取的是网页代码，而且目标网页还是UTF-8编码的，
所以还要进行UTF-8编码的转换,如果只是普通的文本的话用responseText就可以读出内容了，如果包含中文或
目标编码不是GB2312，最好用responseBody读出字节流(可以返回到字节数组中),然后将数组进行转换或处理
一下。如



   Dim ReturnText As String, ReturnByte() As Byte



   ...



   XMLObject.send SendStr    '开始发送数据

   ReturnByte = XMLObject.responseBody   '读出字节流到ReturnByte这个字节数组中

   ReturnText = StrConv(ReturnByte, vbUnicode)   '将字节流转换为文本，这样支持中文了



   ...