使用 HTMLAgilityPack 库 .NET 检索具有相同“类”名称的多个“td”值

Question

我刚要再次使用 HTMLAgilityPack，但我真的不知道为什么我的代码会以这种方式执行。所以我有这个 HTML 代码。这只是一个实验性的 HTML 代码，以便于实验。

<html>
<tbody class="person">
<div class="name">Chris</div>
<td class="num">3,200</td>
<td class="num">62,000</td>
<td class="num">59,700</td>
<td class="num">1,500</td>
</tbody>

<tbody class="person">
<div class="name">John</div>
<td class="num">23,200</td>
<td class="num">900</td>
<td class="num">60,100</td>
<td class="num">1,300</td>
</tbody>

<tbody class="person">
<div class="name">James</div>
<td class="num">900</td>
<td class="num">60</td>
<td class="num">61,400</td>
<td class="num">610</td>
</tbody>
</html>

我目前的代码是这样的......

Dim web As New HtmlAgilityPack.HtmlWeb
Dim doc As HtmlAgilityPack.HtmlDocument = web.Load("C:/sample.html")
For Each tbody As HtmlNode In doc.DocumentNode.SelectNodes("//tbody[contains(@class, 'person')]")
    Dim numberNode = tbody.SelectSingleNode("//tbody[contains(@class, 'person')]")
    Dim valueNode = numberNode.SelectNodes(".//td[contains(@class, 'num')]")
    Dim numbers As String()
    numbers = (From n In valueNode Select n.InnerText).ToArray()
    Dim nameNode As HtmlNode = tbody.SelectSingleNode(".//div[contains(@class, 'name')]")
    If nameNode IsNot Nothing Then
        MsgBox(numbers(0) & " " & numbers(1) & " " & numbers(2) & " " & numbers(3) & " - " & nameNode.InnerText, MsgBoxStyle.OkOnly, "System Message")
    End If
Next

我真的很困惑为什么它只返回第一个数字值。数值与<div class="name"> 不对应。

在我的理解中，对于它执行的每个循环，它都会在每个<tbody class="person"> 下获取相应的数据。如何获得与<div class="name"> 对应的下一个数值。非常感谢。

Answer 1

这是错误：

'select the first <tbody class="person"> element'
Dim numberNode = tbody.SelectSingleNode("//tbody[contains(@class, 'person')]")
'then get all <td class='num'> within above <tbody>'
Dim valueNode = numberNode.SelectNodes(".//td[contains(@class, 'num')]")

尝试将其更改为如下：

'get all <td class='num'> within <tbody> of current iteration'
Dim valueNode = tbody.SelectNodes(".//td[contains(@class, 'num')]")