HTMLAgilityPack 라이브러리를 사용하여 속성 및 범위 검색

당신이 발견 한 아이 노드의 속성에 접근하려고 시도한 당신의 실수.

node.SelectSingleNode("//div[@class='release']") 를 호출하면 올바른 div를 반환하지만 .Attributes 호출하면 내부 HTML 요소가 아닌 div 태그의 속성 만 반환됩니다.

하위 노드 (예 : //div[@class='release']/a 를 선택하는 XPATH 쿼리를 작성할 수 있습니다. XPATH에 대한 자세한 내용은 http://www.w3schools.com/xpath/xpath_syntax.asp 를 참조 하십시오 . XML에 대한 예제이지만, 대부분의 원칙은 HTML 문서에 적용되어야합니다.

또 다른 방법은 발견 한 노드에서 추가 XPATH 호출을 사용하는 것입니다. 이 방법을 사용하여 코드를 수정했습니다.

' Load the html document.
htmldoc.LoadHtml(IO.File.ReadAllText("C:\source.html"))

' Select the (10 items) nodes.
htmlnodes = htmldoc.DocumentNode.SelectNodes("//div[@class='item']")

' Loop through the nodes.
For Each node As HtmlAgilityPack.HtmlNode In htmlnodes

    Dim releaseNode = node.SelectSingleNode(".//div[@class='release']")
    'Assumes we find the node and it has a a-tag
    Title = releaseNode.SelectSingleNode(".//a").Attributes("title").Value
    URL = releaseNode.SelectSingleNode(".//a").Attributes("href").Value

    Dim thumbNode = node.SelectSingleNode(".//div[@class='thumb']")
    Cover = thumbNode.SelectSingleNode(".//img").Attributes("src").Value

    Dim releaseYearNode = node.SelectSingleNode(".//div[@class='release-year']")
    Year = CInt(releaseYearNode.SelectSingleNode(".//span").InnerText)

    Dim genreNode = node.SelectSingleNode(".//div[@class='genre']")
    Dim genreLinks = genreNode.SelectNodes(".//a")
    Genres = (From n In genreLinks Select n.InnerText).ToArray()

    Console.WriteLine("Title : {0}", Title)
    Console.WriteLine("Cover : {0}", Cover)
    Console.WriteLine("Year  : {0}", Year)
    Console.WriteLine("Genres: {0}", String.Join(",", Genres))
    Console.WriteLine("URL   : {0}", URL)

Next

이 코드에서는 문서가 올바르게 구성되었고 각 노드 / 요소 / 특성이 존재하고 올바른 것으로 가정합니다. 예를 들어 If someNode Is Nothing Then .... 과 같이 많은 오류 검사를 추가 할 수 있습니다 If someNode Is Nothing Then ....

편집 : 각 .SelectSingleNode 앞에 ".//"접두사를 사용하도록 약간 위의 코드를 수정했습니다 - 이것은 여러 "항목"노드가있는 경우 작동합니다. 그렇지 않으면 현재 문서가 아닌 첫 번째 일치 항목 을 선택합니다 마디.

짧은 XPATH 솔루션을 원한다면,이 접근 방식을 사용하는 코드는 다음과 같습니다.

' Load the html document.
htmldoc.LoadHtml(IO.File.ReadAllText("C:\source.html"))

' Select the (10 items) nodes.
htmlnodes = htmldoc.DocumentNode.SelectNodes("//div[@class='item']")

' Loop through the nodes.
For Each node As HtmlAgilityPack.HtmlNode In htmlnodes

    Title = node.SelectSingleNode(".//div[@class='release']/h4/a[@title]").Attributes("title").Value
    URL = node.SelectSingleNode(".//div[@class='release']/h4/a[@href]").Attributes("href").Value

    Cover = node.SelectSingleNode(".//div[@class='thumb']/a/img[@src]").Attributes("src").Value

    Year = CInt(node.SelectSingleNode(".//div[@class='release-year']/span").InnerText)

    Dim genreLinks = node.SelectNodes(".//div[@class='genre']/a")
    Genres = (From n In genreLinks Select n.InnerText).ToArray()

    Console.WriteLine("Title : {0}", Title)
    Console.WriteLine("Cover : {0}", Cover)
    Console.WriteLine("Year  : {0}", Year)
    Console.WriteLine("Genres: {0}", String.Join(",", Genres))
    Console.WriteLine("URL   : {0}", URL)
    Console.WriteLine()

Next