vb点虐提取网页文字 vbnet抓取网页数据

求VB.NET读取网页内容写法

Imports System.Net

创新互联是专业的神农架林区网站建设公司，神农架林区接单;提供成都做网站、网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行神农架林区网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

Imports System.IO

Imports System.Text.RegularExpressions

Public Class Form1

Private Sub button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim stream As IO.Stream = WebRequest.Create(UrlAdress).GetResponse().GetResponseStream()

'注意urladress为你上面的网页地址。

Dim sr As StreamReader = New StreamReader(stream, System.Text.Encoding.UTF8)

Label1.Text = Regex.Match(sr.ReadToEnd, "回答采纳率").ToString

'sr。readtoend读取网页流到末尾，即使用正则表达式从网页流中提取“回答采纳率”，赋值给Label1.Text ‘没有则为空

sr.Dispose() '关闭流

End Sub'要提取什么东西用正则表达式最好

End Class

楼上的说法不对,正则式的作用就是匹配未知的一些东西,可以提取.

代码如下:

-----------

Imports System.Text.RegularExpressions

dim sHtml as string=网页内容'自己想办法获取,比如Doc.Body.InnerHtml

dim sResult1 as string=""'“听过哪些草原歌”

sResult1=Regex.Match(sHtml, "\[aA]{1}[ ]{1}class\=t[ ]{1}href.+\(.+)\\/[aA]{1}\").Groups(1).Value

'其余类推...

'保存进文件

大哥把分给我吧.求你了.祝你好运中500万

首先需要加载需要获取网页文的网址，然后根据WebBrowser1.document.body.innertext来获取文字，可参考下面部分代码

Private Sub cmdcommand1_click()

WebBrowser1.navigate "具体网页地址"

End Sub

Private Sub webbrowser1_documentcomplete(ByVal pDisp As Object, URL As Variant)

txtText1 = WebBrowser1.document.body.innertext

End Sub

分享名称：vb点虐提取网页文字 vbnet抓取网页数据
网页地址：http://azwzsj.com/article/ddijgco.html