已结贴

a251357 发布于 2016-09-08 18:14， 1347 次点击

已结贴

[此贴子已经被作者于2017-1-15 05:20编辑过]

4 回复

风吹过b2016-09-08 21:03

Public Function GETHTML(url As String)
'使用 a814153 的代码进行封装
    With CreateObject("WinHttp.WinHttpRequest.5.1")
        .Open "GET", url, False
        .send
        GETHTML = .responseText
    End With
End Function

这个函数，直接返回网页的代码。应该是解过码的。

a2513572016-09-08 22:52

回复 2楼风吹过b

麻烦楼主请给详细过程..
虽然有进行封装但还是不懂怎么运用
如如何将 https://bbs.bccn.net/post.txt 内的数据直接加载到list1控件里?

风吹过b2016-09-09 08:44

不愿写了。说个大概吧。

先读内容
s=GETHTML("网址")

然后对 S 进行分解为一行一行的。
fj=split(s,vbcrlf) 或 fj=split(s,vbcr) 与远程文件的格式有关。
然后遍类每一行，添加进去
for each s2 in fj
list1.AddItem s2
next

[此贴子已经被作者于2016-9-9 08:47编辑过]

a2513572016-09-09 18:50

回复 4楼风吹过b

谢谢版主了..可测试结果还是不行！！！！