使用 htmlagilitypack 解析 HTML 表格

Question

我正在尝试使用以下代码在网页中获取表格，问题总是返回第一条记录。 问题出在哪里，我该如何解决？

    Dim web As New HtmlAgilityPack.HtmlWeb
    Dim doc As HtmlAgilityPack.HtmlDocument = web.Load("http://colodchaco.org.ar/paginas/aranceles.php?cod_os=1")
    Dim tables As HtmlAgilityPack.HtmlNodeCollection = doc.DocumentNode.SelectNodes("//table")

    ' Iterate all rows in the first table
    Dim rows As HtmlAgilityPack.HtmlNodeCollection = tables(0).SelectNodes("//tr")
    'Console.WriteLine(tables(0).InnerHtml)

    Console.WriteLine("filas: " & rows.Count)

    For Each Row As HtmlAgilityPack.HtmlNode In rows
        Console.WriteLine(Trim(Row.SelectNodes("//td").Item(0).InnerText))
        Console.WriteLine(Trim(Row.SelectNodes("//td").Item(1).InnerText))
        Console.WriteLine(Trim(Row.SelectNodes("//td").Item(2).InnerText))
        Console.WriteLine(Trim(Row.SelectNodes("//td").Item(3).InnerText))
        Console.WriteLine(Trim(Row.SelectNodes("//td").Item(4).InnerText))
    Next

输出

01.01.00
Examen  - Diagn?stico y Plan de Tratamiento.
-
-
$120.00
01.01.00
Examen  - Diagn?stico y Plan de Tratamiento.
-
-
$120.00
01.01.00
Examen  - Diagn?stico y Plan de Tratamiento.
-
-
$120.00
01.01.00
Examen  - Diagn?stico y Plan de Tratamiento.
-
-
$120.00
01.01.00
Examen  - Diagn?stico y Plan de Tratamiento.
-
-
$120.00

问候

Answer 1

朋友们，它在following下工作

....
Dim rows As HtmlAgilityPack.HtmlNodeCollection = tables(0).SelectNodes("./tr")

Console.WriteLine("filas: " & rows.Count

For Each Row As HtmlAgilityPack.HtmlNode In rows
    Console.WriteLine(Trim(Row.SelectNodes("./td").Item(0).InnerText))
    ....
Next

谢谢你的回答！！