尝试计算按父元素名称和索引值过滤的命名 XML 元素

Question

我一直想设法在 VB.net 中操纵 XML，但我运行遇到了一个让我非常头疼的问题，所以我正在寻求帮助请多多指导？！

以这个例子XML...

<?xml version="1.0" encoding="utf-8"?>
<dataset>
  <packages>
    <package index="1">
      <desc>First Package</desc>
      <rmabool>1</rmabool>
      <rmaref>RMACASE1</rmaref>
      <bootfiles>1</bootfiles>
      <image>1</image>
      <driver>3</driver>
      <driver>4</driver>
    </package>
    <package index="2">
      <desc>Second Package</desc>
      <bootfiles>2</bootfiles>
      <image>2</image>
      <driver>3</driver>
    </package>
    <package index="3">
      <desc>Third Package</desc>
      <bootfiles>3</bootfiles>
      <image>2</image>
      <driver>3</driver>
    </package>
  </packages>
</dataset>

...我想计算有多少名为 'driver' 的元素包含在名为 'package' 且索引匹配“1”的元素中。我希望返回的结果是“2”，或者如果我更改搜索以匹配索引与“3”，那么我希望结果是“1”。

我在其他地方有一个简单的子，其中 returns 仅匹配名称的元素计数，下面是我修改它的努力，但我无法让它工作...

Public Function CountElementDescendents(ByVal CFGFile As String,_ 'Path to Config.xml
                                        ByVal Perent As String,_ 'Name of element to search descendents eg. 'package'
                                        ByVal ParentIndex As String,_ 'Index value of element to search descendents eg. '1'
                                        ByVal ElementCount As String_ 'Name of descendent elements to count 'eg. 'driver'
                                        ) As Integer 'Return number of matching elements eg. '2'
    Dim ReturnValue As Integer = 0
    Dim Xe As XElement

    Xe = XElement.Load(CFGFile)
    Dim Query As IEnumerable(Of XElement) = Xe.Elements(Perent).Attribute("index="&ParentIndex).Descendants(ElementCount)
    
    ReturnValue = Query.Count()
    CountElementDescendents = ReturnValue
End Function

我不确定这是否可行，或者即使我采用了构建我的 XML 的最佳方法，有人可以提供一些帮助或建议吗？谢谢！

感谢@dbasnett 和@Craig 的帮助，你太棒了！我会将其标记为已回答。

Answer 1

试一试。 LINQ 查询检查所有驱动程序元素并选择其父元素为索引为 1 的包的元素。

    'for testing use XML literal
    Dim xe As XElement
    xe = <dataset>
             <packages>
                 <package index="1">
                     <desc>First Package</desc>
                     <rmabool>1</rmabool>
                     <rmaref>RMACASE1</rmaref>
                     <bootfiles>1</bootfiles>
                     <image>1</image>
                     <driver>3</driver>
                     <driver>4</driver>
                 </package>
                 <package index="2">
                     <desc>Second Package</desc>
                     <bootfiles>2</bootfiles>
                     <image>2</image>
                     <driver>3</driver>
                 </package>
                 <package index="3">
                     <desc>Third Package</desc>
                     <bootfiles>3</bootfiles>
                     <image>2</image>
                     <driver>3</driver>
                 </package>
             </packages>
         </dataset>

    ' I would like to count how many elements, named 'driver', 
    '  are contained in an element named 'package' with an index matching "1". 
    '
    Dim ie As IEnumerable(Of XElement)
    ie = From el In xe...<driver>
         Where el.Parent.Name.LocalName = "package" AndAlso el.Parent.@index = "1"
         Select el

编辑：作为函数

Private Function Srch(ElementToSearch As XElement,
                         ParentName As String,
                         ParentIndex As String) As IEnumerable(Of XElement)

    Dim ie As IEnumerable(Of XElement)
    ie = From el In ElementToSearch...<driver>
         Where el.Parent.Name.LocalName = ParentName AndAlso el.Parent.@index = ParentIndex
         Select el

    Return ie

End Function

编辑 2 - 更新函数

Private Function Srch(ElementToSearch As XElement,
                         FindThis As String,
                         ParentName As String,
                         ParentIndex As String) As IEnumerable(Of XElement)

    Dim ie As IEnumerable(Of XElement)

    ie = From el In ElementToSearch.Descendants(FindThis)
         Where el.Parent.Name.LocalName = ParentName AndAlso el.Parent.@index = ParentIndex
         Select el

    Return ie

End Function

测试

    Dim rslts As IEnumerable(Of XElement)
    rslts = Srch(xe, "bootfiles", "package", "1")

尝试计算按父元素名称和索引值过滤的命名 XML 元素

Trying to count named XML elements filtered by parent element name and index value

xml

vb.net

search

xelement