vb.net取网页表格的简单介绍
请问vb.net如何获取网页表格中的数据
用正则表达式吧,首先导入命名空间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就是你要的内容。
如何 使用vb.net获取网页表单中的数据
接受页面: 用Request.QueryString["canshu"].toString(); 这样就接受到textbox里的值了。 然后根据这个值到数据库里查询就行了。
VB.NET 如何获取网页中的数据
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
vb.net怎么访问excel表格
我的是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关闭宏
还有很多,这个要自己慢慢摸索
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取网页表格的简单介绍
本文网址:http://myzitong.com/article/phched.html