0

HTTP AGILITY パッケージ PACK を適切に使用できないという問題があります。

コード HTML

<TABLE id=uezszu_24 class="uiGrid fbPhotosGrid" cellSpacing=0 cellPadding=0>
 <TBODY>
  <TR>
    <TD class="vTop">
      <DIV class=Wrapper>
       <A class="uiMediaThumb uiScrollableThumb uiMediaThumbHuge" href="www.cccc.com/index.php" 
        name=43563463 rel=theater aria-label="photo" ajaxify="dsgdgbdfgr45y6ghd">
        <I style="BACKGROUND-IMAGE: url(http://www.fressdgf.com/image.jpg)"></I>
       </A>
      </DIV>
    </TD>
  </TR>
 </TBODY>
</TABLE>

コードVB

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    Dim site As HtmlAgilityPack.HtmlWeb = New HtmlWeb()
    Dim document As HtmlAgilityPack.HtmlDocument = site.Load("https://www.site.com")
    For Each table As HtmlNode In document.DocumentNode.SelectNodes("//tr")

        ListBox1.Items.Add(table.InnerText)

    Next
End Sub

編集: コードのインデントが改善されました

4

1 に答える 1

0

XPath の代わりに Linq を使用することをお勧めします。内のノードの背景画像を取得したい場合は、次のようにします。

For Each tableRow As HtmlNode In document.DocumentNode.SelectNodes("//tr")
    Dim italicNode As HtmlNode = tableRow.DescendantNodes().Where(Function(n) n.Name = "i")
    Dim styleValue As String = italicNode.GetAttributeValue("style",String.Empty)
    ListBox1.Items.Add(styleValue)
Next

お役に立てば幸いです

于 2012-05-03T10:31:57.343 に答える