已知网页的地址,如何获得该网页内附时间变动的数据呢
象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
这样再作解析应该不难了吧?