linq to xml 枚举后代

Question

您好，尝试从我读过的教程中编写一个简单的 linq 查询。但我似乎无法让它发挥作用。我试图显示附加的 xml 文档中的两个地址，但只能显示第一个。有人可以帮我弄清楚为什么两者都没有被打印吗？非常感谢

<?xml version="1.0" encoding="utf-8" ?>
<Emails>
  <Email group="FooBar">
    <Subject>Test subject</Subject>
    <Content>Test Content</Content>
    <EmailTo>
      <Address>[email protected]</Address>
      <Address>[email protected]</Address>
    </EmailTo>
  </Email>
</Emails> 




    Dim steve = (From email In emailList.Descendants("Email") _
                Where (email.Attribute("group").Value.Equals("FooBar")) _
                Select content = email.Element("EmailTo").Descendants("Address")).ToList()



    If Not steve Is Nothing Then
        For Each addr In steve
            Console.WriteLine(addr.Value)
        Next
        Console.ReadLine()
    End If

Answer 1

您当前的查询返回 List>。这意味着您需要两个嵌套的 foreach 循环：一个用于循环列表，另一个用于循环 IEnumerable 的内容。

相反，您可以更新 LINQ 查询以使用 Enumerable.SelectMany 方法并直接获取地址。在查询格式中，SelectMany 通过使用第二个 from 子句来表示，以指示子查询。这类似于以下内容：

Dim query = (From email In emailList.Descendants("Email") _
            Where (email.Attribute("group").Value.Equals("FooBar")) _
            From addr In email.Element("EmailTo").Descendants("Address") _
            Select addr.Value).ToList()

If query.Any() Then
    For Each addr In query
        Console.WriteLine(addr)
    Next
End If

此外，如果您只想迭代结果并且不打算将结果用作列表用于其他目的，则不需要 ToList。

编辑：为了解释此查询的工作原理，让我们将其分为两部分：

第一：

From email In emailList.Descendants("Email") _
Where (email.Attribute("group").Value.Equals("FooBar")) _

此查询所有 节点，并且仅匹配具有 < em>group “FooBar”的属性值。

第二：

From addr In email.Element("EmailTo").Descendants("Address") _
Select addr.Value

这是一个子查询，在第一部分（上面）结束的地方继续。它本质上是一种进一步查询原始查询结果的方法。在这里，我们查询所有

节点，最后为节点的内部文本选择它们的 Value。我们需要这样做的原因是 Descendants("Address") 返回一个包含所有“Address”元素的 IEnumerable。我们需要执行额外的查询（或 foreach）来迭代这些值并提取它们的值。

说明这一点的另一种方法是将其分解为 2 个查询：

Dim query1 = From email In emailList.Descendants("Email") _
             Where (email.Attribute("group").Value.Equals("FooBar"))
             Select email.Element("EmailTo").Descendants("Address")
Dim query2 = query1.SelectMany(Function(addr) addr.Select(Function(a) a.Value))

请注意 query2 中使用 SelectMany。 query2 中的 Select 是对我之前提到的 IEnumerable 进行循环的额外工作。原始查询比 query1/query2 更清晰，但我编写它们只是为了澄清这一点。