Question

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

VB.NET怎样读取网页的内容？

假如一个网页的地址为：http://www.baidu.com/p/924808329?from=zhidao

我要读取这个网页里面的“回答采纳率”这几个字，并且显示在程序里面的Label，应该怎么写

代码越简洁越好。

Answer 1

Imports System.Net
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

追问

这段代码怎么用?总是提示变量未声明!

追答

我没有声明，你自己在过程中最前面声明dim urladress as string="你的网址"
直接把urladress换成你的网址也行，要加引号

追问

Imports 必须声明，怎么办

追答

imports是导入命名空间，你的vb.net版本是多少，难道不支持这个？

像图片这样

追问

如果要读取"回答采纳率"的数值呢，要怎么写？

追答

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)
Dim s As String = Regex.Match(sr.ReadToEnd, "回答采纳率[\s\S]{40}").ToString
'用正则表达式从网页中提取“回答采纳率”以及它后面的40个字符，通过源代码判断，让提取的字符中包含回答采纳率的值
sr.Dispose()
Label1.Text = Regex.Match(s, "\d{1,2}%").ToString
'用正则表达式从变量s中读取一个数字或两个数字组成的百分比，如果你不会正则表达式，可能不好理解，查一下就知道代码的意思
End Sub

追问

"回答采纳率[\s\S]{40}"是什么意思

追答

从网页中提取“回答采纳率”以及它后面的40个字符，我上面都解释了