vb.net网页表格 excel vb 填写网页

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

用正则表达式吧,首先导入命名空间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就是你要的内容。

VB.NET 获取网页 表格

html

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怎么使用表格控件?

DataGridView控件,放一个DataGridView1和Button1到窗体,下面是按钮下代码\x0d\x0a Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click\x0d\x0a Me.DataGridView1.AllowUserToAddRows = False\x0d\x0a DataGridView1.RowTemplate.Height = 200\x0d\x0a DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None\x0d\x0a For i = 1 To 3\x0d\x0a Me.DataGridView1.Columns.Add("列" i.ToString, "列" i.ToString)\x0d\x0a Me.DataGridView1.Rows.Add()\x0d\x0a Next\x0d\x0a Me.DataGridView1.Columns(0).Width = 100\x0d\x0a Me.DataGridView1.Columns(1).Width = 500\x0d\x0a Me.DataGridView1.Columns(0).Width = 300\x0d\x0a End Sub\x0d\x0a'自己设置相关需要的属性即可

如何 使用vb.net获取网页表单中的数据

接受页面: 用Request.QueryString["canshu"].toString(); 这样就接受到textbox里的值了。 然后根据这个值到数据库里查询就行了。


网站名称:vb.net网页表格 excel vb 填写网页
本文地址:http://hbruida.cn/article/dojpegc.html