vb.net：从 Xelement <table></table> 获取数据

Question

我已经从我的 SharePoint 网站加载了一个 Xelement。

Dim elTable2 As XElement = <table border="1" id="table2" style="font-size:1em;border-collapse:collapse;display:inline;width:100%">
<tbody>
    <tr class="ms-rteTableHeaderRow-default" style="text-align:center">
        <th class="ms-rteTableHeaderFirstCol-default">​</th>
        <th class="ms-rteTableHeaderOddCol-default">LAN IP​</th>
        <th class="ms-rteTableHeaderEvenCol-default">Username​</th>
        <th class="ms-rteTableHeaderOddCol-default">Password​</th>
        <th class="ms-rteTableHeaderEvenCol-default">Port​</th>
        <th class="ms-rteTableHeaderOddCol-default">OS​</th>
        <th class="ms-rteTableHeaderEvenCol-default">Extra Info​</th>
     </tr>
     <tr class="ms-rteTableOddRow-default" style="text-align:center">
        <th class="ms-rteTableFirstCol-default">Netasq</th>
        <td class="ms-rteTableOddCol-default"></td>
        <td class="ms-rteTableEvenCol-default"></td>
        <td class="ms-rteTableOddCol-default">​</td>
        <td class="ms-rteTableEvenCol-default">​</td>
        <td class="ms-rteTableOddCol-default">​</td>
        <td class="ms-rteTableEvenCol-default">​</td>
     </tr>
  </tbody>
</table>

该表的行数未知。我可以遍历所有行并检查第一列中的数据吗？

Answer 1

您可以利用 Html Agility Pack 来实现此目的。它是一个 .NET 代码库，允许解析 HTML 内容并支持纯 XPATH 或 XSLT。

示例

Dim table As XElement = <table border="1" id="table2" style="font-size:1em;border-collapse:collapse;display:inline;width:100%">
                                <tbody>
                                    <tr class="ms-rteTableHeaderRow-default" style="text-align:center">
                                        <th class="ms-rteTableHeaderFirstCol-default">​Val</th>
                                        <th class="ms-rteTableHeaderOddCol-default">LAN IP​</th>
                                        <th class="ms-rteTableHeaderEvenCol-default">Username​</th>
                                        <th class="ms-rteTableHeaderOddCol-default">Password​</th>
                                        <th class="ms-rteTableHeaderEvenCol-default">Port​</th>
                                        <th class="ms-rteTableHeaderOddCol-default">OS​</th>
                                        <th class="ms-rteTableHeaderEvenCol-default">Extra Info​</th>
                                    </tr>
                                    <tr class="ms-rteTableOddRow-default" style="text-align:center">
                                        <td class="ms-rteTableFirstCol-default">Netasq</td>
                                        <td class="ms-rteTableOddCol-default"></td>
                                        <td class="ms-rteTableEvenCol-default"></td>
                                        <td class="ms-rteTableOddCol-default">​</td>
                                        <td class="ms-rteTableEvenCol-default">​</td>
                                        <td class="ms-rteTableOddCol-default">​</td>
                                        <td class="ms-rteTableEvenCol-default">​</td>
                                    </tr>
                                </tbody>
                            </table>


    Dim html = New HtmlDocument()
    html.LoadHtml(table.ToString())
    For Each row In html.DocumentNode.SelectNodes("//tr[position()>1]")  'XPath expression to select table rows and skip table header

        Dim cell As HtmlNode = row.SelectSingleNode("td[1]")  'Get cell for first column
        Console.WriteLine(cell.InnerText)
    Next