主题：[求助]从指定网页下载数据

 这个不难，你需要分析网页的构成，然后截取出数据。

 

 每个网页的构成都是不一样的，你先参考

 

 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=49278&replyID=&skin=1

 

 请看上面的例子，源码不是你这样的

 上面的例子已经很清晰了，你必须理解2楼的例子，才能再谈其它。

 不能照搬呐，你要分析你的网页啊，你下载个好一点的浏览器，然后查看源码。

 不做，就做好表上传例子上来

 参考代码

 

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.cqcp.net/Trend/Xync/Xync.aspx?sType=ZH&type=QP")

Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim elems As object = web.Document.GetElementById("labTrendChart3").GetElementsByTagName("tr")

For i As Integer = 0 To elems.Count - 1
    output.show("开始")
    Dim tdelems As object =  elems(i).GetElementsByTagName("td")
    For j As Integer = 0 To tdelems.count - 1
        output.show(tdelems(j).InnerHtml)
    Next
    output.show("结束")
    output.show("---------------------")
Next

 参考代码

 

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.cqcp.net/Trend/Xync/Xync.aspx?sType=ZH&type=QP")

Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim elems As object = web.Document.GetElementById("labTrendChart3").GetElementsByTagName("Table")(0).GetElementsByTagName("tr")
For i As Integer = 3 To elems.Count - 25
    Dim tdelems As object =  elems(i).GetElementsByTagName("td")
    Dim nr As Row = Tables("幸运农场").AddNew
    For j As Integer = 0 To tdelems.count - 1
        Dim str As String = tdelems(j).InnerHtml
        If str.IndexOf(".jpg") > -1 Then
            nr(j) = str.SubString(str.IndexOf(".jpg")-2,2)
        Else
            nr(j) = str
        End If
    Next
Next

 

Dim web As new System.Windows.Forms.WebBrowser
web.Navigate("http://www.cqcp.net/Trend/Xync/Xync.aspx?sType=ZH&type=QP")

Do Until web.ReadyState = 4
    Application.DoEvents
Loop

web.Document.GetElementById("TextBox1").SetAttribute("Value", "5")
web.Document.GetElementById("Button2").InvokeMember("click")

msgbox("必须")

Dim elems As object = web.Document.GetElementById("labTrendChart3").GetElementsByTagName("Table")(0).GetElementsByTagName("tr")
For i As Integer = 3 To elems.Count - 25
    Dim tdelems As object =  elems(i).GetElementsByTagName("td")
    Dim nr As Row = Tables("幸运农场").AddNew
    For j As Integer = 0 To tdelems.count - 1
        Dim str As String = tdelems(j).InnerHtml
        If str.IndexOf(".jpg") > -1 Then
            nr(j) = str.SubString(str.IndexOf(".jpg")-2,2)
        Else
            nr(j) = str
        End If
    Next
Next

  每一种网页都是不同的啊。

自己参考代码。

 

Dim web As New System.Windows.Forms.WebBrowser()

web.ScriptErrorsSuppressed = true

web.Navigate(http://trend.baidu.lecai.com/cqkl10/tailTrend.action?recentPhase=200&onlyBody=false&phaseOrder=up)

 

Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim elems As object = web.Document.GetElementById("chartTable").GetElementsByTagName("tr")
For i As Integer = 1 To elems.Count - 1
    Dim tdelems As object =  elems(i).GetElementsByTagName("td")
    For j As Integer = 0 To tdelems.count - 1
        Dim str As String = tdelems(j).InnerHtml
        output.show(str)
    Next
Next