Question

请问vb.net如何获取网页表格中的数据

请问vb.net如何获取网页表格中的数据，一下是我写的，但是运行后报错，一直获取不到。
Private Sub WebBrowser1_NavigateComplete(ByVal pDisp As Object, URL As Variant)
Dim i, j, k
Dim objTables, objTable, objRow, objCell
Set objTables = Me.WebBrowser1.Document.getElementsByTagName("TABLE")
For i = 0 To objTables.length - 1
Set objTable = objTables(i)
For j = 0 To objTable.rows.length - 1
Set objRow = objTable.rows(j)
For k = 0 To objRow.cells.length - 1
Set objCell = objRow.cells(k)
Debug.Print "第" & i & "个表格", "第" & j & "行", "第" & k & "列", "值:" & objCell.innerText
Next
Next
Next
End Sub

debug的信息是：在 System.MissingMemberException 中第一次偶然出现的“Microsoft.VisualBasic.dll”类型的异常

Answer 1

用正则表达式吧，首先导入命名空间System.Text.RegularExpressions，用Webbrowser载入页面，使用vb.net的代码如下：

Dim iTable As String = WebBrowser1.Document.Body.InnerHtml

Dim str_xm1 As String = Regex.Match(Regex.Matches(iTable, "<td>.*?</td>").Item(6).Value, ".*?").Value

这样str_xm1就是你要的内容。

Answer 2

你把含有网格数据的网页发来我看看，再给你写代码。

追问

所属机房
所属机房楼层
占用
用户IP
2011IDC资源新开000001
业务流程系统
所属机房+用户名称
自用

以上是源码，我想抓取的内容是“所属机房+用户名称”，麻烦你了

追答

Dim Table As HtmlElement = WebBrowser1.Document.GetElementById("content")
Dim Contents As HtmlElementCollection = Table.GetElementsByTagName("td")
For Each Content As HtmlElement In Contents
MessageBox.Show(Content.InnerHtml & vbCrLf & Content.InnerText )
Next

大概写了一个，可以把表格里的所有内容读取出来，你试试看。

Answer 3

debug的信息停在第几行？就是那行有问题罗，检查下那一行的类型