Linq to XML 如何在 vb.net 中执行此操作

Question

此代码段来自此 答案

var reports = from report in xml.Descendants("report")
    where report.Element("name").Value.Contains("Adjustment Report")
    select new {
        Name = report.Element("name").Value,
        Extension = report.Element("extension").Value,
        FileType = report.Element("filetype").Value,
        Fields = report.Elements("field")
            .Select(f => new {
                Name = f.Attribute("name").Value, 
                Type = f.Attribute("type").Value 
            }).ToArray()
    };

对于我的一生，我无法弄清楚 vb.net 中这部分的语法：

        Fields = report.Elements("field")
            .Select(**f =>** new {
                Name = f.Attribute("name").Value, 
                Type = f.Attribute("type").Value 
            }).ToArray()

我想要完成的事情 - 我的 xml 看起来像这样：

<items>
 <item>
  <id>data</id>
  <foto>
   <fotoname>img1.jpg</fotoname>
   <fotoorder>1</fotoorder>
  </foto>
  <foto>
   <fotoname>img2.jpg</fotoname>
   <fotoorder>2</fotoorder>
  </foto>
 </item>
</items>

我需要我的对象有一个列表（或任何种类）的照片元素。

Answer 1

LINQ to XML 是 VB.NET 提供与 C# 完全不同的语法的领域之一。您可以使用相同的方法链接，但我更喜欢如下所示的 VB.NET LINQ 语法：

Sub Main()
    Dim myXml = <items>
                    <item>
                        <id>data</id>
                        <foto>
                            <fotoname>img1.jpg</fotoname>
                            <fotoorder>1</fotoorder>
                        </foto>
                        <foto>
                            <fotoname>img2.jpg</fotoname>
                            <fotoorder>2</fotoorder>
                        </foto>
                    </item>
                </items>

    Dim fotoElementsQuery = From f In myXml...<foto> _
                            Select f

    Dim fotoAnonymousTypeQuery = From f In myXml...<foto> _
                                 Select f.<fotoname>.Value, f.<fotoorder>.Value

    Dim fotoNamedTypeQuery = From f In myXml...<foto> _
                             Select New Foto With {.Name = f.<fotoname>.Value, .Order = f.<fotoorder>.Value}

End Sub

Public Class Foto

    Private _name As String
    Public Property Name() As String
        Get
            Return _name
        End Get
        Set(ByVal value As String)
            _name = value
        End Set
    End Property

    Private _order As Integer
    Public Property Order() As Integer
        Get
            Return _order
        End Get
        Set(ByVal value As Integer)
            _order = value
        End Set
    End Property

End Class

这为您提供了 3 种不同类型的 IEnumerable 结果。

1. fotoElementsQuery 的类型为 IEnumerable(Of XElement)
2. fotoAnonymousTypeQuery 的类型为 IEnumerable(Of).匿名类型的元素将采用 xml 元素的名称 - fotoname 和 fotoorder。
3. fotoNamedTypeQuery 的类型为 IEnumeragle(Of Foto)

在上面的代码中，LINQ 查询尚未实际执行。为了获取列表（并执行查询），请调用 .ToList() 或 .ToArray() 扩展方法。

更新：了解 VB.NET 中 LINQ（和 LINQ to XML）优点的最佳方法是观看 Beth Massi 的 How Do I 视频系列。 http://msdn.microsoft.com/en-us/vbasic/ bb466226.aspx#linq

Answer 2

为了充实其他一些答案：

在 VB.NET 中，您可以使用 XML Axis 运算符来简化方法语法。例如，.. 与 XElement("root").Elements("child") 相同。在这种情况下，子级必须位于根目录的正下方。如果您想要查找节点，无论它们存在于子节点中的何处，您可以使用 .Descendents 而不是 .Elements，或者使用带有三个点的 VB 语法，如下所示： ...。如果要访问属性，请使用 .@，如下所示：.@attributeName。

从Murph的回复中，您可以用VB重写它，如下所示：

Fields = (From f In report.<field> _
          Select Name = f.@name, Type = f.@type).ToArray()

也可以使用Lambda语法编写如下：

Fields = report.<field> _
         .Select(Function(f) New With { _
             Name = f.@name, Type = f.@type).ToArray()

Answer 3

哈昨天读过这篇文章（如果我是对的 - 而且我可能不是 100% 掌握所有语法......）

Fields = report.Elements("field")
    .Select(Function(f) new { 
        Name = f.Attribute("name").Value,
        Type = f.Attribute("type").Value
    }).ToArray()

关键点 - 如果我的记忆正常 - 正在更改“f =>”到“函数(f)”