Создание объектов из дочерних элементов с использованием LINQ to XML

Question

Есть ли способ использовать LINQ to XML для запроса XML-документа, подобного приведенному ниже, для создания новых (анонимных или строго типизированных) объектов из дочерних элементов потомка?

Вот мой XML-документ:

<Root>
 <Rules>
  <Rule Name="Rule_A">
   <Parameter>
    <Name>Parameter 1</Parameter>
    <Value>100</Value>
   </Parameter>
   <Parameter>
    <Name>Parameter 2</Parameter>
    <Value>200</Value>
   <Parameter>
  </Rule>
  <Rule Name="Rule_B">
   <Parameter>
    <Name>Parameter 1</Parameter>
    <Value>600</Value>
   </Parameter>
   <Parameter>
    <Name>Parameter 2</Parameter>
    <Value>300</Value>
   <Parameter>
  </Rule>
 </Rules>
</Root>

Мой запрос LINQ выглядит следующим образом:

Dim RuleName as String = "Rule_A"
Dim parms() = (From p In pXDoc.Descendants("Rule") _
               Where p.Attributes("Name").Any And p.Attribute("Name").Value.Equals(RuleName) _
               Select New DataParameter With { _
                   '' Here is where I would like to pull the values of the Parameter
                   '' elements underneath "Rule_A" and construct an object like below
                   .Name = LINQ magic to get the value of <Name>
                   .Value = LINQ magic to get the value of <Value>
               }).ToArray

После выполнения этого запроса мой массив Parms() будет иметь дваобъекты в нем, представляющие Имя / Значения "Parameter 1" и "Parameter 2", которые подпадают под "Rule_A".

Самое близкое, что мне удалось получить, это использование p.Element(Parameter).Element(Name).Value, но это не сработаеттак как я получу только первый Parameter элемент.Я также пытался использовать Elements(), но не смог понять, как мне получить значение каждого.

Answer 1

Вы можете сделать это так:

Dim parms() = (From p In pXDoc...<Rule>              _ '' all "Rule" descendants
               Where p.@Name = RuleName              _ '' "Name" attribute equals RuleName
               From parm In p.<Parameter>            _ '' all "Parameter" elements
               Select New DataParameter With         _
               {                                     _
                   .Name = CStr(parm.<Name>.Value),  _ '' value of "Name" element (as string)
                   .Value = CInt(parm.<Value>.Value) _ '' value of "Value" element (as int)
               }).ToArray

Answer 2

Sub Main()
    Dim pXDoc As XElement = <Root>
                                <Rules>
                                    <Rule Name="Rule_A">
                                        <Parameter>
                                            <Name>Parameter 1</Name>
                                            <Value>100</Value>
                                        </Parameter>
                                        <Parameter>
                                            <Name>Parameter 2</Name>
                                            <Value>200</Value>
                                        </Parameter>
                                    </Rule>
                                    <Rule Name="Rule_B">
                                        <Parameter>
                                            <Name>Parameter 1</Name>
                                            <Value>600</Value>
                                        </Parameter>
                                        <Parameter>
                                            <Name>Parameter 2</Name>
                                            <Value>300</Value>
                                        </Parameter>
                                    </Rule>
                                </Rules>
                            </Root>



    Dim RuleName As String = "Rule_A"
    Dim parms = (From p In pXDoc.Descendants("Rule") _
                Where p.Attributes("Name").Any _ 
                  And p.Attribute("Name").Value.Equals(RuleName) _
                From parm In p.Elements("Parameter")
                Select New With { _
            .Name = parm.Element("Name").Value,
            .Value = parm.Element("Value").Value
                 })
    For Each x In parms
        Console.WriteLine(x)
    Next

    Console.Write("Enter to Exit: ")
    Console.ReadLine()
End Sub

Результат:

{ Name = Parameter 1, Value = 100 }
{ Name = Parameter 2, Value = 200 }
Enter to Exit: