主题：[求助]狐表取文件信息多个如何取

更改借助IE开发人员工具分析出的div id   GetElementById("provw")，或GetElementById("cityw")或GetElementById("citymar")均不成功，而学习的其他网页提取的例子均能轻易分析找出对应的div 一行的id="*list"或 table一行的 id="*elem"

 

附文件及网址 

这个和这些DIV无关. 每隔几天换一个网页到论坛上让工程师帮你写代码,每隔几天又换一个网页找客服帮你写一下

 要自己懂得分析，把帮助文档看一下 http://msdn.microsoft.com/zh-cn/library/system.windows.forms.htmlelement.aspx

 

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.chinatimber.org/bj/default.asp")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

'取数据
Dim Cols() As String = { "产品","", "", "类别","规格","等级","产地","价格","单位","日期","报价企业" }

Dim elems As object
For Each tb As Object In web.Document.GetElementsByTagName("table")
    If tb.GetAttribute("bgcolor") = "#CCCCCC" Then
        elems = tb.GetElementsByTagName("tr")
        Exit For
    End If
Next

For Each elem As object In elems
    Dim tdelems As object =  elem.GetElementsByTagName("td")
    If tdelems.count > 9 Then
        Dim nr As Row = Tables("木材").AddNew
       
        Dim i As Integer = -1
        For Each tdelem As object In tdelems
            i = i + 1
            If Cols(i) > "" Then
                nr(Cols(i)) = tdelem.Innertext
            End If
        Next
    End If
Next
Tables("木材").save