我已经重做了这个问题，因为一些人认为很难理解我所追求的，所以稍微减少了这个问题。

<?xml version="1.0"?>
<root>
    <succesfulResponses>
        <position>0</position>
        <response>
            <dln>BBUTU204250VS9VT</dln>
            <licence>
                <entitlements>
                    <code>A</code>
                    <validFrom/>
                    <validTo/>
                    <priorTo>false</priorTo>
                    <type>F</type>
                </entitlements>
                <entitlements>
                    <code>B</code>
                    <validFrom/>
                    <validTo/>
                    <priorTo>false</priorTo>
                    <type>F</type>
                </entitlements>
            </licence>
        </response>
    </succesfulResponses>
    <succesfulResponses>
        <position>1</position>
        <response>
            <dln>BTXRS755313Y99AT</dln>
            <licence>           
                <entitlements>
                    <code>A</code>
                    <validFrom>2003-02-28</validFrom>
                    <validTo>2043-05-30</validTo>
                    <priorTo>false</priorTo>
                    <type>P</type>
                </entitlements>
                <entitlements>
                    <code>AM</code>
                    <validFrom>2014-05-14</validFrom>
                    <validTo>2043-05-30</validTo>
                    <priorTo>false</priorTo>
                    <type>P</type>
                </entitlements>
            </licence>
            <httpStatusCode>200</httpStatusCode>
        </response>
    </succesfulResponses>
</root>

这是我返回的 XML，我向服务提交了几个 ID，它返回了这个 XML。

如果我发送 2 个 ID，它会为每个 ID 返回 2 个“successfulResponses”元素，您可以在“response”下方的子节点“dln”中看到这些 ID，您可以看到它们是不同的。

'position' 就是我首先在'request' 中提交的ID。 “response”还有一个名为“licence”的元素和几个“entitlement”元素。

我希望将这些“权利”插入到以这种方式格式化的数据表中

    Results.EntitlementsTbl.Columns.Add(New DataColumn("Code", GetType(String)))
    Results.EntitlementsTbl.Columns.Add(New DataColumn("Valid From", GetType(String)))
    Results.EntitlementsTbl.Columns.Add(New DataColumn("Valid To", GetType(String)))
    Results.EntitlementsTbl.Columns.Add(New DataColumn("Prior To", GetType(String)))
    Results.EntitlementsTbl.Columns.Add(New DataColumn("Type", GetType(String)))
    Results.EntitlementsTbl.Columns.Add(New DataColumn("Driver", GetType(String)))

每一列都与每个“权利”元素下的一个节点相关。每次我有一个“权利”元素时，我都希望在我的数据表中添加一个新行。

还有一个附加列'Driver'，需要用'position'中的数字填充。

所以我的输出到我的表我想有以下内容:

如您所见，“Driver”列与“position”节点的值相关。

我希望这比我以前的更有意义。我已经删除了我声明我已经完成的任何我自己的代码，因为这显然不是要求的。

最佳答案

我衷心支持将 JSON 直接反序列化为 CLR 对象的建议，您可能还会发现使用 XDocument API 更容易，但如果您真的必须使用 XmlDocument 模型出于某种原因，这段代码应该有所帮助

Dim DriverNo As String

Using nodes As XmlNodeList = xmlDoc.DocumentElement.SelectNodes("/root/succesfulResponses")
    For Each node In nodes 
        Dim DLN As String = ""
        DriverNo = node.SelectSingleNode("position").InnerText
        DLN = node.SelectSingleNode("response/dln").InnerText.ToString()

        Using entitlements As XmlNodeList = node.SelectNodes("response/licence/entitlements")
            For Each entitlement In entitlements
                Dim code, validFrom, validTo, priorTo, type As String
                code = entitlement.SelectSingleNode("code").InnerText
                validFrom = entitlement.SelectSingleNode("validFrom").InnerText
                validTo = entitlement.SelectSingleNode("validTo").InnerText
                priorTo = entitlement.SelectSingleNode("priorTo").InnerText
                type = entitlement.SelectSingleNode("type").InnerText
                ' do what you need to with the variables here
            Next

        End Using

    Next
End Using

这样，您将遍历每个 successfulResponses 节点，获取 DLN 和 DriverNo，然后遍历每个 entitlements 节点并从那里获取数据。这将导致每个权利一行。

do what you need to with the variables here 将是要插入数据表或任何您正在使用的内容的实际代码。

关于xml - VB.NET 循环遍历 XML 结果，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/34858122/