以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]狐表取文件信息多个如何取  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=51412)
--  作者：ak47job
--  发布时间：2014/5/26 15:21:00
--  [求助]狐表取文件信息多个如何取


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

 

附文件及网址 

[此贴子已经被作者于2014-7-28 16:01:33编辑过]
--  作者：Bin
--  发布时间：2014/5/26 15:34:00
--  
这个和这些DIV无关. 每隔几天换一个网页到论坛上让工程师帮你写代码,每隔几天又换一个网页找客服帮你写一下

楼主建议你到项目需求板块,发布需求,一次性把你想取的网页全部放出来. 让别人帮你完成吧.
--  作者：有点甜
--  发布时间：2014/5/26 15:55:00
--  

 要自己懂得分析，把帮助文档看一下 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