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

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

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个字符，我上面都解释了

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息