100分如何提取网页数据

http://quote.stockstar.com/stock/external_quote.asp?code=szag000001  
   
   
  用VB里WebBrowser游览上面的地址  
  我要提取页面右边的成交价，该怎么做？  
  最好有实例加讲解 问题点数：100、回复次数：8Top

1 楼smuzy（smuzy）回复于 2003-08-03 00:10:45 得分 5

使用XMLHTTP能够做到！Top

2 楼badman911（badman911）回复于 2003-08-03 00:32:21 得分 0

实例，谢谢Top

3 楼iamluodong（嗨）回复于 2003-08-03 10:22:07 得分 5

使用微软的Microsoft   Html   object   Libary  
    '申明窗体级变量  
    private   as   HTMLDOCUMENT  
    在webbrowser1中的documentcomplete事件中设置  
    set   mDoc=webbrowser1.document  
    此mDoc就是webbrowser1的document，可以象网页中引用一样  
   
  Top

4 楼badman911（badman911）回复于 2003-08-03 12:42:46 得分 0

我需要实例Top

5 楼sippey（sippey）回复于 2003-08-03 13:14:44 得分 0

自己看看把，为什么非要源码呢？Top

6 楼badman911（badman911）回复于 2003-08-03 17:28:12 得分 0

没人帮?Top

7 楼gpo2002（永吹不休）回复于 2003-08-03 18:38:03 得分 90

Option   Explicit  
   
   
  Private   Sub   Command1_Click()  
   
          Dim   o   As   HTMLDocument  
          Dim   v   As   Variant  
          Dim   lb     As   Boolean  
           
           
          Do   While   WebBrowser1.ReadyState   <>   READYSTATE_COMPLETE  
            DoEvents  
          Loop  
          Set   o   =   WebBrowser1.Document  
           
          For   Each   v   In   o.All  
                  If   TypeName(v)   =   "HTMLTableCell"   Then  
                          If   v.innerText   =   "成交"   Then  
                                  lb   =   True  
                          Else  
                                  If   lb   Then  
                                          MsgBox   v.innerText  
                                          Exit   For  
                                  End   If  
                          End   If  
                           
                  End   If  
          Next  
          MsgBox   "ok"  
  End   Sub  
   
  Private   Sub   Form_Load()  
          WebBrowser1.Navigate   "http://quote.stockstar.com/stock/external_quote.asp?code=szag000001"  
  End   Sub  
   
  Top

8 楼badman911（badman911）回复于 2003-08-03 19:25:18 得分 0

3Q解决给分Top

相关问题

• webbrowser1
• lb
• quote
• dim
• sub
• then

• 帖主：badman911
• smuzy
• iamluodong
• gpo2002

• Visual Basic类图书
• Visual Basic类源码下载