大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
用正则表达式吧,首先导入命名空间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就是你要的内容。
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打开,某些浏览器可能不支持。
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'自己设置相关需要的属性即可
接受页面: 用Request.QueryString["canshu"].toString(); 这样就接受到textbox里的值了。 然后根据这个值到数据库里查询就行了。