首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

已知网页的地址,怎么获得该网页内附时间变动的数据呢

2012-03-05 
已知网页的地址,如何获得该网页内附时间变动的数据呢象http://finance.sina.com.cn/realstock/company/sz0

已知网页的地址,如何获得该网页内附时间变动的数据呢
象http://finance.sina.com.cn/realstock/company/sz002064/nc.shtml这个网页,我想读出这个网页内的“华峰氨纶”右边的数值如“49.20”等这些随时变动的数字,这样能不能有什么办办能做到呢?

能帮忙解决送200分.但一次好象只能送100分呢。

谢谢

[解决办法]
<tr>
<td width= "22% "> 昨收盘 </td>
<td width= "27% " id= "itemPrevious "> - </td>
<td width= "22% " class= "GLine01 "> 今开盘 </td>
<td width= "27% " id= "itemOpen "> - </td>
</tr>
<tr>
<td> 涨跌额 </td>
<td id= "itemDiffamount "> - </td>
<td class= "GLine01 "> 最低价 </td>
<td id= "itemLow "> - </td>
</tr>
<tr>
<td> 最高价 </td>
<td id= "itemHigh "> - </td>
<td class= "GLine01 "> 涨跌幅 </td>
<td id= "itemDiffpercent2 "> - </td>
</tr>
<tr>
<td> 竞买价 </td>
<td id= "itemBid "> - </td>
<td class= "GLine01 "> 竞卖价 </td>
<td id= "itemSell "> - </td>
</tr>
给你一个例子吧,比如要取 "涨跌幅 "可以从WebBrowser1.Document.All( "itemDiffpercent2 ").innerHTML中取

前面说过,你不可能直接从html源代码中取得所要的数据比如49.20,而只能用HTML文档对象的方式获取。
[解决办法]
这样试试看看是不是你要的

Dim s As String
s = WebBrowser1.Document.body.innerText
s = Replace(s, "以下为热门股票 ", "~@ ")
s = Replace(s, "用户登录 ", "~@ ")
s = Split(s, "~@ ")(1)
Debug.Print s

这样再作解析应该不难了吧?

热点排行