将XML转换为VB.NET字典

Question

我试图从XML中将子子值放入使用LINQ的字典集合中。我已经完成了列表和自定义集合，它们遵循与XML相同的结构，但无法搜索特定的值。如果我知道parentName，childName和subChildName，我希望能够找到subChildProperty1.value和subChildProperty2.value，而不必迭代整个集合和每个后续子集合，因为我必须处理列表。这可能不是最好的实施方式，我很乐于接受建议，但仍想弄清楚如何完成这项工作。那么这将让我有一本字典项是：

key = "parentNameValue1.childNameValue1.subchildNameValue1.subChildProperty1" 
value = 0 

，我可以只连接字符串，形成一个特定的键以及搜索该键返回一个值。

XML：

<root> 
    <parent> 
     <parentName>parentNameValue1</parentName> 
     <child> 
      <childName>childNameValue1</childName> 
      <subchild> 
       <subchildName>subchildNameValue1</subchildName> 
       <subChildProperty1>0</subChildProperty1> 
       <subChildProperty2>5</subChildProperty2> 
      </subchild> 
      <subchild> 
       <subchildName>subchildNameValue2</subchildName> 
       <subChildProperty1>0</subChildProperty1> 
       <subChildProperty2>10</subChildProperty2> 
      </subchild> 
     </child> 
    </parent> 
<root> 

这个问题有点类似于this question here但我不能让代码在VB中工作了我的申请。

我是新来的SO（和VB），所以如果我的礼节不正确，我很抱歉。

Answer 1

用VB.NET的伟大XML的支持，这是很容易做到：

Imports System.Xml.Linq 

... 

Sub Main() 
    Dim xml = _ 
     <root> 
      <parent> 
       <parentName>parentNameValue1</parentName> 
       <child> 
        <childName>childNameValue1</childName> 
        <subchild> 
         <subchildName>subchildNameValue1</subchildName> 
         <subChildProperty1>0</subChildProperty1> 
         <subChildProperty2>5</subChildProperty2> 
        </subchild> 
        <subchild> 
         <subchildName>subchildNameValue2</subchildName> 
         <subChildProperty1>0</subChildProperty1> 
         <subChildProperty2>10</subChildProperty2> 
        </subchild> 
       </child> 
      </parent> 
     </root> 

    ' Alternatively, load XML from a file 
    ' Dim xml = XDocument.Load(fileName) 

    Dim dict As New Dictionary(Of String, Integer) 

    ' Extract the properties 
    For Each parent In xml.<parent> 
     Dim parentName = parent.<parentName>.Value 
     For Each child In parent.<child> 
      Dim childName = child.<childName>.Value 
      For Each subchild In child.<subchild> 
       Dim subchildName = subchild.<subchildName>.Value 
       For Each prop In subchild.Elements.Where(Function(e) e.Name <> "subchildName") 
        dict.Add(String.Format("{0}.{1}.{2}.{3}", parentName, childName, subchildName, prop.Name), _ 
          Integer.Parse(prop.Value)) 
       Next 
      Next 
     Next 
    Next 

    ' Print the values, to show that we've done a good job 
    For Each kv In dict 
     Console.WriteLine("{0}: {1}", kv.Key, kv.Value) 
    Next 
    Console.ReadLine() 
End Sub 

_{（显然，代码假设选项严格上和Option推断上。）}