2016-07-18 13 views
1

Ich versuche, den folgenden Code zu verwenden, um eine Tabelle in einer Webseite zu erhalten, das Problem ist immer den ersten Datensatz zurückgeben. Wo können Sie das Problem sein und wie ich es beheben?Parsed HTML-Tabelle mit htmlagilitipack

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 

Ausgabe

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 

Grüße

Antwort

0

Freunde, arbeiten sie an der

.... 
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 

Vielen Dank für Ihre Anwers folgen !!