如何逐步遍历具有相同名称的xml元素

Question

好的，这是我在这里的第二篇文章，我仍然对在 vb.net 中使用 XML 感到厌烦。

我知道如何获取具有唯一名称的单个元素所需的数据，但如果重复该过程怎么办？

我的示例是使用 API 与工作中的程序进行交互。当我使用 API 搜索与商店相关的票时，它会返回多个值，如下所示：

<requests>
 <request>
 <form name="requestID">999999</form>
 <form name="userTimeFormat">EEE, MMM d HH:mm:ss z yyyy</form>
 <form name="contact">Contact Name</form>
 <form name="status">Status</form>
 <form name="statusID"></form>
 <form name="priority"></form>
 <form name="supportRep">Tom Smith</form>
 <form name="supportRepCostPerHour">0.00</form>
 <form name="createdTime">Time/Date</form>
 <form name="updatedTime">Time/Date</form>
 <form name="dueByTime">Time/Date</form>
 <form name="isOverDue">T/F</form>
 <form name="accountID"/>
 <form name="account"/>
 <form name="subject">Subject Goes Here</form>
 </request>

 <request>
 <form name="requestID">999998</form>
 <form name="userTimeFormat">EEE, MMM d HH:mm:ss z yyyy</form>
 <form name="contact">Contact Name</form>
 <form name="status">Status</form>
 <form name="statusID"></form>
 <form name="priority"></form>
 <form name="supportRep">Tom Smith</form>
 <form name="supportRepCostPerHour">0.00</form>
 <form name="createdTime">Time/Date</form>
 <form name="updatedTime">Time/Date</form>
 <form name="dueByTime">Time/Date</form>
 <form name="isOverDue">T/F</form>
 <form name="accountID"/>
 <form name="account"/>
 <form name="subject"> Subject Goes Here </form>
 </request>

所以当我使用 XPath 获取信息时，它对于第一个 非常有效，但我的问题是如何移动到下一个 以获取下一组数据？

这是我的代码：

For Each requests As XElement In reader...<request>
            Dim ReqID As String = reader.XPathSelectElement("//form[@name='requestID']")
            Dim contact As String = reader.XPathSelectElement("//form[@name='contact']")

我知道我需要某种循环来重复该过程，但现在我不知所措。感谢任何和所有帮助/cmets。我是编码和 vb 的新手，但我是一个快速而热心的学习者。谢谢。

Answer 1

您已经选择了<request> 元素；但是您必须在每个元素上使用 XPath 表达式，而不是根元素：

For Each r in xml.XPathSelectElements("//request")
    Dim ReqID As String = r.XPathSelectElement(".//form[@name='requestID']")
    Dim contact As String = r.XPathSelectElement(".//form[@name='contact']")
    ' ...do something... '
Next

或者，没有 XPath：

For Each request in xml...<request>
    Dim ReqID = request.<form>.Single(Function(f) f.@name = "requestID").Value
    Dim contact = request.<form>.Single(Function(f) f.@name = "contact").Value
    ' ...do something... '
Next