【已解决】[求助]通过元素align、class获取文字。如何获取网页数据？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【已解决】[求助]通过元素align、class获取文字。如何获取网页数据？

共有8269人关注过本帖树形打印复制链接主题：【已解决】[求助]通过元素align、class获取文字。如何获取网页数据？

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/2 9:51:00 [显示全部帖子]

具体网址发出来测试，说明要获取什么数据。

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/2 12:39:00 [显示全部帖子]

以下是引用zto001在2019/1/2 9:56:00的发言：
使我们内网的一个系统，里面不像普通网页一样，网页内容会在源代码里面。他的全都是js，都不存在数据内容。不知道怎么弄

那没办法。请自行想办法获取。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/9 9:38:00 [显示全部帖子]

id没有，元素至少也有吧？只要有文本框，都是可以把值填进去的。

调出浏览器调试器，查看元素，根据元素的属性，找到对应文本框。

http://www.foxtable.com/mobilehelp/scr/0244.htm

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/10 10:26:00 [显示全部帖子]

以下是引用zto001在2019/1/10 10:17:00的发言：
放弃了，关于网页的，没有ID或者name可以找。搞了半天也没办法。

那你找classname啊，看不懂就算了吧。

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=122215&skin=0

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/10 11:43:00 [显示全部帖子]

以下是引用zto001在2019/1/10 10:46:00的发言：
还是不会，class有，name没有，你发的这些例子都是ID或者name的

classname就是元素里面的class啊，看懂例子后测试啊。看不懂怎么说你也不懂。

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/11 15:43:00 [显示全部帖子]

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.hzctc.cn/OpenBidRecord/Index?id=36177CC9-5F91-473F-84E6-A2EFA35D6DD9&tenderID=969B1A8D-1A57-4A21-864F-A5E98F8288FB&ModuleID=486")
Do Until web.ReadyState = 4 AndAlso web.Document.GetElementById("Table1") IsNot Nothing
Application.DoEvents
Loop

Dim elems As object = web.Document.GetElementsByTagName("div")
For Each elem As object In elems
    If elem.getattribute("classname") = "row cl" Then
        If elem.InnerText.contains("工程编号") Then
            msgbox(elem.GetElementsByTagName("span")(0).innerText)
        ElseIf elem.InnerText.contains("建设单位") Then
            msgbox(elem.GetElementsByTagName("span")(0).innerText)
        End If
    End If
Next

elems = web.Document.GetElementById("Table1").GetElementsByTagName("tr")
For i As Integer = 1 To elems.count-2
Dim tds = elems(i).getelementsbytagname("td")
msgbox(tds(0).InnerText & " " & tds(1).InnerText)
Next

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/11 17:21:00 [显示全部帖子]

改成

Dim web as System.Windows.Forms.WebBrowser = e.form.controls("webbrowser1").Basecontrol

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/13 21:37:00 [显示全部帖子]

Dim web As System.Windows.Forms.WebBrowser = e.form.controls("webbrowser1").Basecontrol
Dim elems As object = web.Document.GetElementsByTagName("div")
Dim ls As new List(of String)
For Each elem As object In elems
    If elem.getattribute("classname") = "cell" Then
        ls.add(elem.innerText)
    End If
Next

msgbox(ls.count)
If ls.count >= 10 Then

    Dim dr As Row = Tables("表A").AddNew()
    dr("第一列")=ls(0)
    dr("第二列")=ls(1)
    dr("第三列")=ls(2)
    dr("第四列")=ls(3)
End If