vb.net爬取数据 vba爬取网页的方法

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运行完成，就完成了读取文本文件内容并输出到立即窗口。

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如何获取网页表格中的数据

用正则表达式吧，首先导入命名空间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读取数据

孩子，如果你从你单击事件上下手，就好办了，先弄明白，点击了什么，datagridview点击，可以获取单击的值，好办，用SQL语句去查询单击的这个值，把查到的结果再交给你要处理的地方，我常这么干。我从来不晓得什么表与表之间的关联，或者关系表什么鬼东西，但是我也可以操作很多张表，把它们的结果集一起显示出来。

Dim 表1 As New DataSet

Dim 对象1 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select top * from表名 where 字段名 = '" DataGridView1.CurrentCell.Value "' ", 数据源)

对象1.Fill(表1, " 表名")

DataGridView2.DataSource = 表1.Tables(" 表名")

表1 = Nothing

对象1 = Nothing

如果写成这样，还嫌不够，一定要按你的意思去写，那我真的要疯了。

这个例子，就是把表格1点击的值查一个结果集，在表格2上显示，不知有没有你想要的表达式？