谁能用VB代码把这个网页的内容全部读出?谢谢
谁能用VB代码把这个网页的内容全部读出:http://company.p5w.net/gszl/zjindex.asp
尤其是如网页中如下的内容:
· [快讯]全景资金流向监测报告:机构资金流入20亿元 [2009-09－03]
· [快讯]9月2日沪市换手率最高个股的资金流向 [2009-09－02]
· [快讯]9月2日深市换手率最高个股的资金流向 [2009-09－02]
· [快讯]全景证券分析师2日股市资金流向监测报告 [2009-09－02]
· [快讯]全景资金流向监测报告:午后资源类股遭抛售 [2009-09－02]
· [快讯]全景资金流向监测报告:银行煤炭股受到青睐 [2009-09－02]
· [快讯]全景资金流向监测报告:资金小幅流入9亿元 [2009-09－02]
· [快讯]9月1日沪市换手率最高个股的资金流向 [2009-09－01]
--------------------编程问答-------------------- URL = "http://company.p5w.net/gszl/zjindex.asp"
Set XmlHttp = CreateObject("Microsoft.XMLHTTP") '得到源码
XmlHttp.Open "get", Trim(URL), False
XmlHttp.SEnd
a = StrConv(XmlHttp.ResponseBody, vbUnicode) --------------------编程问答-------------------- 谢谢zhengmenghua老师！
经过试验，你的代码只是读出了此网页中的前面的内容，而我要的最后一个框中的内容没有。这是怎么回事啊？ --------------------编程问答--------------------
Sub zjlx()
Dim s() As String, i As Long
With CreateObject("Microsoft.XMLHTTP")
.Open "get", "http://www.p5w.net/stock/jinghua/zjlx/index_608.htm", False
.Send
s = Split(StrConv(.responseBody, vbUnicode, &H804), "target=""_blank"">")
End With
For i = 1 To UBound(s)
Debug.Print Split(s(i), "</a>")(0) & vbTab & Split(Split(s(i), "<span class=""STYLE1"">")(1), "</span>")(0)
Next
End Sub
补充：VB , 网络编程
