各位,VB6.0怎么才能只獲取收集瀏覽器WebBrowser1的網頁上指定模塊里的超鏈接網址,如下圖紅框中模塊,顯示在TEXT???一個網頁的頁面上有太多鏈接網址,需要過濾掉不要的,代碼怎么寫?多謝回答者,懸賞本人全部積分了
uj5u.com熱心網友回復:
webbrowser1.document物件getElementById或者getElementsByTagName定位,innerText或innerHtml方法回傳內容
uj5u.com熱心網友回復:
下面是本人的按鈕代碼,但就是只能獲取網頁上全部鏈接顯示在Text , 太多了, 不能過濾掉不需要的
===========================================================================================================
Private Sub Command1_Click()
Dim i As Integer, s As String
s = ""
For i = 0 To WebBrowser1.Document.links.length - 1
If WebBrowser1.Document.links.Item(i) <> s Then
List1.AddItem WebBrowser1.Document.links.Item(i)
s = WebBrowser1.Document.links.Item(i)
End If
Next
For i = 0 To List1.ListCount - 1
s = s & List1.List(i) & vbCrLf
Next
List1.Clear
Text2.Text = s
End Sub
uj5u.com熱心網友回復:
參考 3 樓 laihuida 的回復: 下面是本人的按鈕代碼,但就是只能獲取網頁上全部鏈接顯示在Text , 太多了, 不能過濾掉不需要的
===========================================================================================================
Private Sub Command1_Click()
Dim i As Integer, s As String
s = ""
For i = 0 To WebBrowser1.Document.links.length - 1
If WebBrowser1.Document.links.Item(i) <> s Then
List1.AddItem WebBrowser1.Document.links.Item(i)
s = WebBrowser1.Document.links.Item(i)
End If
Next
For i = 0 To List1.ListCount - 1
s = s & List1.List(i) & vbCrLf
Next
List1.Clear
Text2.Text = s
End Sub
通過getElementById或者getElementsByTagName去定位,定位到包含這個串列的html標簽,可能是個div、ul或者別的什么東西,沒有HTML源代碼誰知道里面是個什么東西,假如有id的話就可以直接通過webDocument1.document.getElementbyId("id名")定位到這個html標簽,回傳的是一個Element物件,再通過Element.getElementsByTagName("a")方法去獲取這個element物件里面的所有的<a></a>標簽,回傳的是一個Element物件的集合,遍歷這個集合再通過element.getAttribute("href")取到對應的地址
uj5u.com熱心網友回復:
參考 4 樓 三樓一郎 的回復: Quote: 參考 3 樓 laihuida 的回復: 下面是本人的按鈕代碼,但就是只能獲取網頁上全部鏈接顯示在Text , 太多了, 不能過濾掉不需要的
===========================================================================================================
Private Sub Command1_Click()
Dim i As Integer, s As String
s = ""
For i = 0 To WebBrowser1.Document.links.length - 1
If WebBrowser1.Document.links.Item(i) <> s Then
List1.AddItem WebBrowser1.Document.links.Item(i)
s = WebBrowser1.Document.links.Item(i)
End If
Next
For i = 0 To List1.ListCount - 1
s = s & List1.List(i) & vbCrLf
Next
List1.Clear
Text2.Text = s
End Sub
通過getElementById或者getElementsByTagName去定位,定位到包含這個串列的html標簽,可能是個div、ul或者別的什么東西,沒有HTML源代碼誰知道里面是個什么東西,假如有id的話就可以直接通過webDocument1.document.getElementbyId("id名")定位到這個html標簽,回傳的是一個Element物件,再通過Element.getElementsByTagName("a")方法去獲取這個element物件里面的所有的<a></a>標簽,回傳的是一個Element物件的集合,遍歷這個集合再通過element.getAttribute("href")取到對應的地址
不行,可能是我不會寫
uj5u.com熱心網友回復:
-------只要解決了本人的問題,本人一定結貼--------
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/7340.html
標籤:網絡編程
上一篇:為什么突然就這樣了啊
下一篇:振奮人“芯”的訊息