vb.net抓数据 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就是你要的内容。

相关问答

Q1: VB.net窗体设计中，如何读取.txt文件中的数据？

1、新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2。

2、双击Command1添加如下代码

Private Sub Command1_Click()

Dim strFile As String

Dim intFile As Integer

Dim strData As String

strFile = "c:\学生成绩.txt"

intFile = FreeFile

Open strFile For Input As intFile

strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

Debug.Print strData

Close intFile

End Sub

3、按F8开始单步调试代码，点击Command1，进入单步调试功能，

4、多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。

Q2: 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

Return Str_WebContent '提取出来新闻内容,删除Body前后的多余内容,同时补充上该 Body标记,形成完整的内容 Str_WebContent '

End Function

Q3: 怎样用vb.net在datagrid上鼠标抓取数据

鼠标抓取数据是什么意思，鼠标点击到某一行上就把某一行的数据抓到吗？

Q4: 使用VB.NET的五个技巧之处理数据行

处理数据行（DataRow）

Windows窗体中的数据绑定列表框和组合框很节省时间典型的代码如下（假定已经建立vb.net抓数据了SqlDataAdapter或者其它部件获取数据）

Dim ds As New DataSet() SqlDataAdapter Fill(ds Customers ) ListBox DataSource = ds Tables( Customers ) ListBox DisplayMember = CompanyName ListBox ValueMember = CustomerID

在这种情况下代码使用Northwind数据库的顾客记录工作 DisplayMember属性设置为vb.net抓数据你希望用户在列表框中看到的记录字段它是customers表的CompanyName 通常ValueMember属性设置为数据表中的一个键字段对于customer来说是CustomerID 一旦用户选择vb.net抓数据了列表框中的一行很容易使用列表框的SelectedValue属性获得键字段

MsgBox（ListBox SelectedValue）

但是有可能需要一个与被选择项相关的整个数据行对象的引用例如如果被选择的行需要被删除就不知道键了你需要一个数据行的引用以使用Delete方法

典型的Visual Basic开发者通常这样想我已经得到了该行的键了我将编写一些逻辑来查找使用该键的行这样可以实现但是有更好的实现方法可以使用一行代码获取与列表框中选项关联的数据行

Dim dr As DataRow = CType（ListBox SelectedItem DataRowView） Row

通常该逻辑不会凭直觉出现即使对经验丰富的开发者为了解释这是怎样实现的我把上面的一行拆成几行下面的代码与上面代码的功能相同

Dim drv As DataRowView drv = CType(ListBox SelectedItem DataRowView) Dim dr As DataRow dr = drv Row

DataRowView类是数据行的包装它被多个Windows窗体控件使用它使得显示与控件中的数据行相关的数据更加容易当列表框被数据绑定到数据表时（假定列表框中的有些行当前被选定了）列表框的SelectedItem属性保存了一个DataRowView对象

这意味着我们能把列表框的SelectedItem属性转换到DataRowView对象这就是上面代码中的第二行实现的接着DataRowView暴露一个Row属性它指向被包装的数据行上面的代码声明了一个数据行并设置了Row属性

转换对象的类型以访问它的接口的技术在Visual Basic 中不是经常使用但是在Visual Basic NET中这是经常的有了上面的例子后大多数有经验的开发者迅速跟上了这种技术

数据行的引用（dr）可用于用任何方式维护行访问数据行中的任何特定字段是可行的行中的数据可以被改变能使数据行的Delete方法把该行标识为删除或者从数据表的行集合中删除该行下面的代码标识删除了一行

dr Delete（）

lishixinzhi/Article/program/net/201311/12974