vb.net,如何获取网页字符串?
想要达到的效果:获取雅虎财经页面
http://finance.yahoo.com/q/hp?s=SPY+Historical+Prices
Open High Low Close 四项下的第一行数据,
也就是161.49, 162.01, 161.42, 161.78,四个数据
到窗体程序的四个文本框控件,Textbox1、2、3、4,
谢谢~~~
请帮忙写出代码,追加50分!谢谢~
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 request As Net.WebRequest = WebRequest.Create("http去弯含岩:/掉老亮/finance.ya中hoo.com/q/hp文?s=SPY+Historical+Prices")
Dim response As WebResponse = request.GetResponse()
Dim stream As IO.Stream = response.GetResponseStream()
Dim sr As StreamReader = New StreamReader(stream, System.Text.Encoding.UTF8)
Dim s As String = Regex.Match(sr.ReadToEnd, "Adj Close[\s\S]{450}").ToString
Dim z(3) As Double
Dim l As Int16 = 0
For Each i In Regex.Matches(s, "[\d]{0,3}\.\d*")
z(l) = i.value
l = l + 1
If l > 3 Then Exit For
Next
TextBox1.Text = z(0)
TextBox2.Text = z(1)
TextBox3.Text = z(2)
TextBox4.Text = z(3)
End SubE
End Class
——————
去掉连接中的中埋御文,怕屏蔽,这是获取prices的第一排数据,网页可能会有变化