VB.NET 获取网页 表格

html

创新互联建站是专业的忻府网站建设公司，忻府接单;提供成都网站设计、成都做网站,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行忻府网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

head

titleTest/title

script language="VBScript" type="text/vbscript"

!--      '按钮事件

sub Test1_onClick()

msgbox document.getelementsbytagname("table")(0).innerText

end sub

sub Test2_onClick() '提取每单元文本

dim Text

'获取表格中的行集

set trs=document.getelementsbytagname("table")(0).getelementsbytagname("tr")

for each tr in trs  '遍历每行

for each td in tr.getelementsbytagname("td") '遍历每行中的每单元

text = text  td.innerText  vbtab  '每单元用制表符分隔

next

text =text  vbcrlf  '换行

next

msgbox text

end sub

--

/script

/head

body

table cellspacing="0" cellpadding="0" class="list1"

tbody

tr class="listtou"

td width="10%"日期/td

td width="10%"姓名/td

td width="10%"备注/td

/tr

/tbody

tr

td width="10%"2014-01-15 10:40:52/td

td width="10%"张山/td

td width="10%"32/td

/tr

tr

td width="10%"2014-01-16 10:40:52/td

td width="10%"李四/td

td width="10%"29/td

/tr

/table

div

input type="button" name="Test1" value="测试1" 

input type="button" name="Test2" value= "测试2"

/div

/body

/html

'主要是对htmlDocument对像的操作，我发现htmlDocument对象可以通过body.InnerHtml载入html文本也能解析，这样比webBrowser1方便，因为是同步的。

'你试试用webClient的downloadString下载网页文本，然后赋给htmlDocument对象下的body.InnerHtml。

'上面只是代码例子，只供参考。用ie打开，某些浏览器可能不支持。

关于VB.NET制表符 vbTab 的奇怪现象

其实是起了作用的，只不过vbTab跟4个字符有关系，所以显示的列，8的倍数个字符和不是8的倍数个字符之间就显示得有差异了。

tab就是如果不够4个字符就补齐4个字符的位置。 超过的话就是补齐4的整倍数个字符。

VB.NET Word创建表格并录入文字

‘首先，创建一个VB.NET项目，再点击菜单”项目“-”添加引用“，在”Com“-”类型库“里，选择Microsoft.Word 14.0 Object Library（对应Office版本为2010），将以下代码复制粘贴到Form1窗体替换原代码。

’PS：以下代码仅创建表格，将第行2至4列合并，添加1个文字，其他的你自己分析。

Imports Microsoft.Office.Interop

Imports Microsoft.Office.Interop.Word  '引入Word

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim DWrd As New Word.Application, DDoc As Word.Document '定义Word及文档对象

DDoc = DWrd.Documents.Add '新增文档

Dim DTbl As Word.Table  '定义表格对象

DTbl = DDoc.Tables.Add(DDoc.Range, 7, 4)  '新增表格

DTbl.Style = "网格型"  '表格的样式

DTbl.Cell(1, 2).Select()  '选择起始单元格为第1行/第2列

DWrd.Selection.MoveRight(, 2, SelectionMode.MultiExtended)  '向右扩展两个单元格(即选择第1行的第2至4列)

DWrd.Selection().Cells.Merge()  '单元格合并

DTbl.Cell(1, 1).Range.Text = 1  '在第1个单元格填写文本

DWrd.Visible = True '显示Word

End Sub

End Class