第10000分的帖子：網(wǎng)頁元素抓取模塊

roych

前段時(shí)間在處理些網(wǎng)頁抓取的問題，順帶發(fā)一個(gè)模塊給大家。
說明：這里是使用了類名（Class）來抓取，返回字符串后，可以使用split函數(shù)切分為數(shù)組再寫入表字段位置。
1、如需要多頁抓取，則需要寫循環(huán)，詳見附件。
2、由于異步情況下，HTML元素返回值跟頁面顯示不一致，因此不支持ajax。

1. '*******************************************************************************************************************
   
2. '網(wǎng)頁抓取數(shù)據(jù)主程序，獲取包含以冒號隔開的某個(gè)類的網(wǎng)頁元素標(biāo)識的文本字符串。
   
3. '編寫：東東
   
4. '日期：2014-11-18
   
5. '使用說明：需引用HTML庫和互聯(lián)網(wǎng)控件庫（Internet Control）。
   
6. 'wb：WebBrowser組件，返回Object
   
7. 'strURL：URL地址，字符串類型
   
8. 'strClassName：類名稱，字符串類型
   
9. 'isID：是否獲取寶貝ID，布爾值類型
   
10. '如：myData（Me.Webbrowser0,"http://www.Tmall.com,"DIV",False)
    
11. '*******************************************************************************************************************
    
12. Function myData(ByVal wb As WebBrowser, ByVal strURL As String, ByVal strClassName As String, Optional ByVal isID As Boolean=False)
    
13. Dim doc As HTMLDocument
    
14. Dim eles As IHTMLElementCollection
    
15. Dim ele As IHTMLElement
    
16. Dim str As String
    
17. 
    
18. wb.Navigate strURL
    
19. 
    
20. Do Until wb.ReadyState = READYSTATE_COMPLETE
    
21.     DoEvents
    
22. Loop
    
23. 
    
24. Set doc = wb.Document
    
25. Set eles = doc.getElementsByClassName(strClassName)
    
26. 
    
27. For Each ele In eles
    
28.     If isID Then
    
29.         str = str & ":" & Right(ele.getAttribute("href"), 11)
    
30.     Else
    
31.         str = str & ":" & ele.innerText
    
32.     End If
    
33. Next
    
34. myData = str
    
35. End Function

復(fù)制代碼

****************************************************
2014-12-24更新：應(yīng)7樓的要求，以論壇帖子為數(shù)據(jù)源，附上實(shí)例。
****************************************************

游客，如果您要查看本帖隱藏內(nèi)容請回復(fù)

盜夢

好帖，看看里面的內(nèi)容

zbf127

mark

HKEY_CURRENT

admin

支持！

yanwei82123300

謝謝分享�。�！

smileyoufu

好東西，學(xué)習(xí)下

smileyoufu

roych 版主，能否請求做個(gè)實(shí)例，看一下效果？

天涯淪落20131

111111

一念之間

好貼