vb 获取股票行情报价

来源：百度知道 编辑：UC知道 时间：2024/07/03 02:47:48
我想用vb开发一个软件，输入股票代码，程序就自动获取该股票的信息（如现价、开盘、净资产等等。）但是我不知道从哪里获取这些信息。我就想了一个办法：从一些股票网萃取信息。比如：http://yahoo.compass.cn/stock/realstock.php?code=sh600000，我想把该页的所有可以获得的信息（如现价、开盘、净资产等等。）分别萃取进text1，text2，text3 ，......请问该怎么做（急）？回答优秀者最高悬赏100分！或者把源码发到我的邮箱：648754314@qq.com

这是页面内容采集问题,没啥难度

网上代码太多了(你可以搜 VB 抓取网页),以实现基本功能(把页面 http://www....)的内容抓过来
有了内容,你需要做的仅是截取部分有用内容后在使用正则表达式筛选即可

比如你抓过来的内容是截取部分有用内容后放到了字符串 str
那么使用下面的函数即可
' 正则求值

Public Function Value(ByVal str As String, ByVal RegexEx As String, ByVal SN As Integer) As String
Try
Dim regex As New Regex(RegexEx)
Dim m As MatchCollection = regex.Matches(str)
Try
Return m(SN).ToString()
Catch
Return ""
End Try
Catch
Return ""
End Try

End Function

你的text1可能是

需要过滤下

dim a as string = Value(str,"...",0).replace("<a>","")
text1.text = a

dim b as string = Value(str,"...",1).replace("<a>","")<