vb.net 教程 12-4 msHtml 4

xiaoxiao2021-02-28  58

版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。 本节谈谈获得网页上表格的信息

直接上代码:

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Dim doc As mshtml.HTMLDocument doc = wbMain.Document.DomDocument Dim tab As mshtml.HTMLTable tab = doc.getElementsByTagName("table").item(0) Dim myrow As mshtml.HTMLTableRow myrow = tab.rows.item(0) Dim mycell As mshtml.HTMLTableCell mycell = myrow.cells.item(0) txtInfo.Text = "表格中第一行第一个数据:" & mycell.innerText End Sub

看看运行结果:

为了更清晰地分析,将上述代码修改为:

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Dim doc As mshtml.HTMLDocument doc = wbMain.Document.DomDocument Dim tab As mshtml.HTMLTable tab = doc.getElementsByTagName("table").item(0) Dim myrow As mshtml.HTMLTableRow myrow = tab.rows.item(0) Dim mycell As mshtml.HTMLTableCell mycell = myrow.cells.item(0) 'txtInfo.Text = "表格中第一行第一个数据:" & mycell.innerText txtInfo.Text = "表格中第一行第一个数据:" & mycell.innerHTML End Sub

运行结果:

这下看出来了。

tab = doc.getElementsByTagName("table").item(0)

获得网页第一个table,也就是最外面的table,然后获得的是这个table的第一个格子里面的内容,虽然内容也是一个table。

所以想要获得具体哪个表格内的内容,还得老老实实地分析网页代码。

 

表格内容也可以修改的,不过好像没什么用:

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click Dim doc As mshtml.HTMLDocument doc = wbMain.Document.DomDocument Dim tab As mshtml.HTMLTable tab = doc.getElementsByTagName("table").item(0) Dim myrow As mshtml.HTMLTableRow myrow = tab.rows.item(0) Dim mycell As mshtml.HTMLTableCell mycell = myrow.cells.item(0) 'txtInfo.Text = "表格中第一行第一个数据:" & mycell.innerText txtInfo.Text = "表格中第一行第一个数据:" & mycell.innerHTML mycell.innerText = "abcdefg" End Sub

运行结果:

 

 

 

由于.net平台下C#和vb.NET很相似,本文也可以为C#爱好者提供参考。

学习更多vb.net知识,请参看 vb.net 教程 目录

 

转载请注明原文地址: https://www.6miu.com/read-67377.html

最新回复(0)