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

如何同时取得网页中的 超链接 和它的(标题)文字

2012-03-09 
怎么同时取得网页中的 超链接 和它的(标题)文字?怎么同时取得网页中的 超链接 和它的(标题)文字?---------

怎么同时取得网页中的 超链接 和它的(标题)文字?
怎么同时取得网页中的 超链接 和它的(标题)文字?
------------------------------------
取得所有webbrowser中的超链接我下面附的代码可以了,能把所有超链接给提取到list1中了.
现在我想同时取得这些超链接的标题文字(这个我不知道是叫"标题"还是怎么叫,就是比如说新浪首页的新闻,它都是些标题新闻,点击这个标题它就打开一个网页----这些新闻标题就是我这里所说的"标题文字"的意思,"超链接"就是这些标题背后的链接地址),要怎么取呢?
我想把这些标题取出来全部放到list2中,这样我两个list只要并排放,超链和它的标题文字就一一对应一目了然了.
多谢!!
-----------------------------
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set webdoc = WebBrowser1.Document
Dim Acollection As IHTMLElementCollection
Set Acollection = webdoc.All.tags("a")
For i = 0 To Acollection.length - 1
  List1.AddItem Acollection.Item(i).toString
Next
end sub

[解决办法]
你代码的循环体内加一句
List2.AddItem Acollection.Item(i).Text
试试
[解决办法]

VB code
Private Sub Form_Load()    WebBrowser1.Navigate "www.baidu.com"End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)    Set webdoc = WebBrowser1.Document    Dim Acollection As Object    Set Acollection = webdoc.All.tags("a")    For i = 0 To Acollection.length - 1      List1.AddItem Acollection.Item(i)      List2.AddItem Acollection.Item(i).innertext    NextEnd Sub 

热点排行