VB web浏览器跨接入

Question

<div id="Fruits" class="item"> 
<table> 
<tbody><tr> 
<td class="header">Category</td> 
<td class="text"> 
<span id="aaaaa" class="Name"><a href="" rel="category tag">Apple</a></span> 

<span id="bbbbb" class="Name"><a href="" rel="category tag">Orange</a></span> 

<span id="ccccc" class="Name"><a href="" rel="category tag">Melon</a></span> 

<span id="ddddd" class="Name"><a href="" rel="category tag">Banana</a></span> 

<span id="ddddd" class="Name"><a href="" rel="category tag">Watermelon</a></span> 

<td class="icon"></td> 
</tr> 
</tbody></table> 
</div> 

我想获得“苹果”，“橙色”，“甜瓜”，“香蕉”，“西瓜”通过VB web浏览器，但是当我使用的代码

WebBrowser2.Document.GetElementById("Fruits").GetAttribute("innerText") 

我AppleOrangeMelonBananaWatermelon

是否有可能获得像单独或者他们有一个逗号

之间

苹果，橙，西瓜，香蕉，西瓜

在此先感谢

Answer 1

我可以给你一个替代方案，使用xPath语法。我不知道你是否可以使用带有“webBrowser”对象的xPath，但这是一个完整的选择。我希望这可以帮助你。

Private Sub stackOverflowExample() 

    Dim client As WebClient = New WebClient() 
    Dim lnk As String = "http://www.example.com" 

    Try 

     Dim html = client.DownloadString(lnk) 
     Dim htmlDoc As New HtmlAgilityPack.HtmlDocument() 
     htmlDoc.LoadHtml(html) 

     For Each node As HtmlNode In htmlDoc.DocumentNode.SelectNodes("//span[@id='fruits']") 
      ' get inner html ---> node.InnerHtml 
     Next 

    Catch ex As Exception 

    End Try 

End Sub