13518219792
用正则表达式吧，首先导入命名空间System.Text.RegularExpressions，用Webbrowser载入页面，使用vb.net的代码如下：
创新互联于2013年创立，是专业互联网技术服务公司，拥有项目网站建设、成都网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元赣州做网站,已为上家服务,为赣州各地企业和个人服务,联系电话:18980820575
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就是你要的内容。
接受页面： 用Request.QueryString["canshu"].toString（）； 这样就接受到textbox里的值了。 然后根据这个值到数据库里查询就行了。
Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String
'启动一次具体的数据采集工作,返回采集到的HTML内容:要求必须输入带://的全地址数据
On Error Resume Next
Dim Str_WebContent As String = "请输入查找网站地址."
Dim wb As WebClient = New WebClient() '//创建一个WebClient实例
If mWebsiteUrl.IndexOf("://") 0 Then
'//获取或设置用于对向 Internet 资源的请求进行身份验证的网络凭据。（可有可无）
wb.Credentials = CredentialCache.DefaultCredentials
'//从资源下载数据并返回字节数组。（加@是因为网址中间有"/"符号）
Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)
'//转换字符
If mWebsiteType Then
Str_WebContent = Encoding.Default.GetString(pagedata)
Else
Str_WebContent = Encoding.UTF8.GetString(pagedata)
End If
End If
Return Str_WebContent '提取出来新闻内容,删除Body前后的多余内容,同时补充上该 Body标记,形成完整的内容 Str_WebContent '
End Function
我的是2007版本，其它类似
1.在工程中引用Microsoft Excel 12.0 Object Library
2、在通用对象的声明过程中定义EXCEL对象：
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
3、在程序中操作VB.NET EXCEL常用命令：
Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open("文件名") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = True '设置EXCEL对象可见（或不可见）
Set xlSheet = xlBook.Worksheets("表名") '设置活动工作表
xlSheet.Cells(row, col) =值 '给单元格（row,col）赋值
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
xlBook.RunAutoMacros (xlAutoOpen) '运行EXCEL启动宏 xlBook.RunAutoMacros (xlAutoClose) '运行EXCEL关闭宏
还有很多，这个要自己慢慢摸索
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打开，某些浏览器可能不支持。
