使用 Linq 解析 XML

Question

我有以下 XML 文档，我想将其解析为数据集。

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?> 
<Response Status="OK">
  <Item>
    <Field Name="ID">767147519</Field> 
    <Field Name="Name">Music</Field> 
    <Field Name="Path">Family\Music</Field> 
    <Field Name="Type">Playlist</Field> 
  </Item>
</Response>

我想要获取 ID、名称和路径的属性值。

以下是我的尝试：

Dim loaded As XDocument = XDocument.Load(uriString)
Dim name = From c In loaded.Descendants("Item") Select c
For Each result In name
  Dim str1 = result.Attribute("ID").Value 'Returns Nothing and causes a validation error
  Dim str2 = result.Value ' Returns all the attribute values in one long string (ie "767147519MusicFamilyPlaylist")
Next

任何帮助将不胜感激。

谢谢，

马特

编辑：

按照下面的答案之一，我一直在尝试在我的 Linq 中实现匿名类型，但是我不断遇到错误

对象引用未设置为 对象的实例。

我更新的代码如下：

Dim name = From c In loaded.Descendants("Item") Select c Select sID = c.Element("Field").Attribute("Name").Value, sName = c.Attribute("ID").Value.FirstOrDefault
Dim Id As String = String.Empty
For Each result In name
  Id = result.sID
Next

我认为这个错误意味着无法找到属性（“ID”），因此我尝试了几种类似的结果。

有谁能够找出我哪里出了问题并指出我正确的方向。

谢谢，

马特

Answer 1

您可以使用 XPath：（

Dim data = From item In loaded.Descendants("Item")
           Select
             ID = item.XPathSelectElement("Field[@Name='ID']").Value,
             Name = item.XPathSelectElement("Field[@Name='Name']").Value,
             Path = item.XPathSelectElement("Field[@Name='Path']").Value,
             Type = item.XPathSelectElement("Field[@Name='Type']").Value

请务必导入 System.Xml.XPath 命名空间）

或者将其直接添加到 DataTable：

Dim dt As New DataTable()
dt.Columns.Add("ID")
dt.Columns.Add("Name")
dt.Columns.Add("Path")
dt.Columns.Add("Type")
For Each item In loaded.Descendants("Item")
  dt.Rows.Add(
    item.XPathSelectElement("Field[@Name='ID']").Value,
    item.XPathSelectElement("Field[@Name='Name']").Value,
    item.XPathSelectElement("Field[@Name='Path']").Value,
    item.XPathSelectElement("Field[@Name='Type']").Value
  )
Next

Answer 2

另一种使用匿名类型的解决方案：

        var doc = XDocument.Load("c:\\test");

        var list = doc.Root
         .Elements("Item")
         .Select(item =>
          new
          {
              Id = item.Elements("Field").Where(e => e.Attribute("Name").Value == "ID").Select(e => e.Value).FirstOrDefault(),
              Path = item.Elements("Field").Where(e => e.Attribute("Name").Value == "Path").Select(e => e.Value).FirstOrDefault(),
              Name = item.Elements("Field").Where(e => e.Attribute("Name").Value == "Name").Select(e => e.Value).FirstOrDefault(),
          })
         .ToArray();

        foreach (var item in list)
        {
            var id = item.Id;
            var name = item.Name;
        }

new 运算符内的丑陋表达式可以与下一个匿名函数缩短：

Func<XElement, string, string> getAttrValue = (node, attrName) =>
{
 return node.Elements("Field")
  .Where(e => e.Attribute("Name").Value == attrName)
  .Select(e => e.Value)
  .FirstOrDefault();
};

然后 new 运算符如下所示：

 new 
 { 
  Id = getAttrValue(item, "ID"), 
  Path = getAttrValue(item, "Path"),
  Name = getAttrValue(item, "Name"),
 }

Answer 3

这是我尝试解决您的问题。我只是注意到您希望使用尽可能多的 LINQ，因此我相应地构建了 LINQ 查询。请注意，结果类型（对于“ID”）将是 IEnumerable()，即您需要在其上运行 for every 循环来获取单独的 id，即使是单个项目：

Dim loaded As XDocument = XDocument.Load(uriString)

Dim IDs = From items In loaded.Descendants("Item") _
         Let fields = items.Descendants("Field") _
         From field In fields _
         Where field.Attribute("Name").Value = "ID" _
         Select field.Value

旁注：供将来参考，如果您遇到示例中的 C# 匿名类型“var”，vb 中的等效类型是简单的暗淡，就像上面的查询一样（没有“as type”部分）。

希望这有帮助。
马维里克

Answer 4

使用 XPath 可以让大家省去麻烦吗？

XmlDocument xml = new XmlDocument();
xml.Load(xmlSource);

string id = xml.SelectSingleNode("/Response/Item/Field[@Name='ID']").InnerText;
string name = xml.SelectSingleNode("/Response/Item/Field[@Name='Name']").InnerText;
string path = xml.SelectSingleNode("/Response/Item/Field[@Name='Path']").InnerText;

Answer 5

我想要获取 ID、名称和路径的属性值。

如果您不介意使用 XDocument 以外的其他东西，我只会使用 XmlDocument：

        XmlDocument doc = new XmlDocument();
        doc.Load(new XmlTextReader("XData.xml"));
        XmlNodeList items = doc.GetElementsByTagName("Item");
        foreach (XmlElement item in items.Cast<XmlElement>())
        {
            XmlElement[] fields = item.GetElementsByTagName("Field").Cast<XmlElement>().ToArray();
            string id = (from s in fields where s.Attributes["Name"].InnerText == "ID" select s).First().InnerText;
            string name = (from s in fields where s.Attributes["Name"].InnerText == "Name" select s).First().InnerText;
            string path = (from s in fields where s.Attributes["Name"].InnerText == "Path" select s).First().InnerText;

            //Do stuff with data.
        }

从性能角度来看，这可能很糟糕。您还可以在字段上进行循环，然后在名称属性上使用开关，这样您就不会多次检查同一字段。无论如何，为什么你需要任何 linq 呢？

---

        XmlDocument doc = new XmlDocument();
        doc.Load(new XmlTextReader("XData.xml"));
        XmlNodeList items = doc.GetElementsByTagName("Item");
        foreach (XmlElement item in items.Cast<XmlElement>())
        {
            foreach (XmlNode field in item.GetElementsByTagName("Field"))
            {
                string name = field.Attributes["Name"].InnerText;
                switch (name)
                {
                    case "ID":
                        string id = field.InnerText;
                        //Do stuff with data.
                        break;
                    case "Path":
                        string path = field.InnerText;
                        //Do stuff with data.
                        break;
                    case "Name":
                        string name = field.InnerText;
                        //Do stuff with data.
                        break;
                    default:
                        break;
                }
            }
        }

Answer 6

您的 linq 查询返回文档中的所有 Item 元素：

Dim name = From c In loaded.Descendants("Item") Select c

下面的代码尝试从 'Item' 元素获取 'ID' 属性：

Dim str1 = result.Attribute("ID").Value

但是，'ID' 属性位于 'Field' 子元素上。

您需要的是以下内容：

// find all the Item elements
var items = loaded.Descendants("Item");
foreach(var item in items)
{
  // find all the Field child elements
  var fields = item.Descendants("Field");

  // find the field element which has an ID attribute, and obtain the element value  
  string id = fields.Where(field => field.Attribute("ID")!=null)
                    .Single()
                    .Value;

  // etc ...
}

Answer 7

一个简单的解决方案是

        var result = doc.Root.Descendants(XName.Get("Item")).Select(x =>  x.Descendants(XName.Get("Field")));


        foreach (var v in result)
        {
            string id = v.Single(x => x.Attribute(XName.Get("Name")).Value == "ID").Value;

            string name = v.Single(x => x.Attribute(XName.Get("Name")).Value == "Name").Value;

            string path = v.Single(x => x.Attribute(XName.Get("Name")).Value == "Path").Value;

            string type = v.Single(x => x.Attribute(XName.Get("Name")).Value == "Type").Value;

        }

它可以轻松转换为 vb 代码。

Answer 8

这是一个通用解决方案，可处理多个项目中具有不同字段名称的所有字段。它将结果保存在一张表中，其中包含所有不同的字段名称作为列名称。

Module Module1

Function createRow(ByVal table As DataTable, ByVal item As XElement) As DataRow
    Dim row As DataRow = table.NewRow

    Dim fields = item.Descendants("Field")
    For Each field In fields
        row.SetField(field.Attribute("Name").Value, field.Value)
    Next

    Return row

End Function


Sub Main()
    Dim doc = XDocument.Load("XMLFile1.xml")

    Dim items = doc.Descendants("Item")

    Dim columnNames = From attr In items.Descendants("Field").Attributes("Name") Select attr.Value

    Dim columns = From name In columnNames.Distinct() Select New DataColumn(name)

    Dim dataSet As DataSet = New DataSet()
    Dim table As DataTable = New DataTable()
    dataSet.Tables.Add(table)

    table.Columns.AddRange(columns.ToArray())

    Dim rows = From item In items Select createRow(table, item)

    For Each row In rows
        table.Rows.Add(row)
    Next

    ' TODO Handle Table
End Sub

End Module

我尝试尽可能多地使用 Linq，但 Linq 在递归处理嵌套元素时有点不灵活。

这是我使用的示例 xml 文件：

<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<Response Status="OK">
  <Item>
    <Field Name="ID">767147519</Field>
    <Field Name="Name">Music</Field>
    <Field Name="Path">Family\Music</Field>
    <Field Name="Type">Playlist</Field>
  </Item>
  <Item>
    <Field Name="ID">123</Field>
    <Field Name="Name">ABC</Field>
    <Field Name="RandomFieldName">Other Value</Field>
    <Field Name="Type">FooBar</Field>
  </Item>
</Response>

结果：

ID         Name     Path          Type        RandomFieldName

767147519  Music    Family\Music  Playlist

123        ABC                    FooBar      Other Value

Answer 9

经过进一步的研究并在所提供答案的部分帮助下，我提出了以下内容，它返回了我想要的信息。

Dim Query = From items In loaded.Descendants("Item") _   
Let sID = ( From q In items.Descendants("Field") _       
Where q.Attribute("Name").Value = "ID" ) _ 
Let sName = ( From r In items.Descendants("Field") _       
Where r.Attribute("Name").Value = "Name" ) _ 
Let sPath = ( From s In items.Descendants("Field") _       
Where s.Attribute("Name").Value = "Path" ) _ 
Where (Ctype(sPath.Value,String) Like "Family\*") _
Select pId=sID.Value, pName=sName.Value, pPath = sPath.Value

如果可以以任何方式改进以实现更好的性能，请告诉我。

感谢大家的帮助，虽然没有一个答案能够完全解决问题，但通过大家的帮助，我能够学到很多有关 Linq 的知识。

马特

Answer 10

我希望您期待这样的简短答案，而不是另一个实现：

Dim items = From c In loaded.Descendants("Item") Select c (...)

好的，到目前为止，应该不会遇到任何麻烦。变量名“name”有点混乱，所以我将其更改为“items”。

第二部分包含错误：

Dim items = (...) Select sID = c.Element("Field").Attribute("Name").Value, sName = c.Attribute("ID").Value.FirstOrDefault

以下内容有效，因为有一个名为 Name 的属性，尽管结果是“ID”，这显然不是预期的：

c.Element("Field").Attribute("Name").Value

这里出现错误：

c.Attribute("ID").Value.FirstOrDefault

c is the XmlNode '<<项目> ...< /项目>'并且它没有任何属性，因此 c.Attribute("ID") 的结果为 null。

我猜你想要类似下面的东西：

Dim loaded = XDocument.Load("XMLFile1.xml")
Dim items = From item In loaded.Descendants("Item") Select _
            sID = (From field In item.Descendants("Field") _
                   Where field.Attribute("Name") = "ID" _
                   Select field.Value).FirstOrDefault() _
            , _
            sName = (From field In item.Descendants("Field") _
                     Where field.Attribute("Name") = "Name" _
                     Select field.Value).FirstOrDefault()

Answer 11

您的代码中存在一些错误：

您应该获得 XName 等于 Field 而不是 Item 的后代

Dim name = From c In loaded.Descendants("Field") Select c

您所使用的属性称为 Name，而不是ID

Dim str1 = result.Attribute("Name").Value

在每个 str1 的第一次迭代中，它将是“ID”，下一次迭代将是“Name”，等等。

总代码：

Dim loaded As XDocument = XDocument.Load(uriString)
Dim name = From c In loaded.Descendants("Field") Select c
For Each result In name
  Dim str1 = result.Attribute("Name").Value 'Returns "ID"
  Dim str2 = result.Value ' Returns "767147519"
Next

Answer 12

还有另一种方法可以解决这个问题。将此 XML 转换为 DataSet 所需的格式，然后使用 DataSet.ReadXml 加载它。如果您不了解 XSLT，这会很痛苦。但如果您使用 XML，了解 XSLT 确实很重要。

您需要的 XSLT 非常简单。从 XSLT 身份转换开始。然后添加一个模板，将 Response 和 Item 元素转换为 DataSet 期望的格式：

<xsl:template match="Response">
   <MyDataSetName>
      <xsl:apply-templates select="Item"/>
   </MyDataSetName>
</xsl:template>

<xsl:template match="Item">
   <MyDataTableName>
      <xsl:apply-templates select="Field[@Name='ID' or @Name='Name' or @Name='Path']"/>
   </MyDataTableName>
</xsl:template>

<xsl:template match="Field">
   <xsl:element name="{@Name}">
      <xsl:value-of select="."/>
   </xsl:element>
</xsl:template>

这会将您的 XML 更改为如下所示的文档 ：像这样：

<MyDataSetName>
  <MyDataTableName>
    <ID>767147519</ID> 
    <Name>Music</Name> 
    <Path>Family\Music</Path> 
  </MyDataTableName>
</MyDataSetName>

...您可以将其提供给DataSet.ReadXml。

编辑：

我应该指出，因为除非您经常这样做，否则它并不明显，因此这样做的一个影响是您需要创建和填充 DataSet< 的 C# 代码量/code> 是最小的：

    private DataSet GetDataSet(string inputFilename, string transformFilename)
    {
        StringBuilder sb = new StringBuilder();
        using (XmlReader xr = XmlReader.Create(inputFilename))
        using (XmlWriter xw = XmlWriter.Create(new StringWriter(sb)))
        {
            XslCompiledTransform xslt = new XslCompiledTransform();
            xslt.Load(transformFilename);
            xslt.Transform(xr, xw);
        }
        using (StringReader sr = new StringReader(sb.ToString()))
        {
            DataSet ds = new DataSet();
            ds.ReadXml(sr);
            return ds;
        }
    }

它也是可重用的。您可以使用此方法根据需要从尽可能多的不同可能的输入格式填充尽可能多的不同的DataSet；您只需要为每种格式编写一个转换即可。