2

如何删除 XML 文档中属性的重复值？

这是一个示例 XML，其中有 1 个重复的“名称”值3 Ways - Fake Love：

<?xml version="1.0" encoding="Windows-1252"?>
<!--MasterMusik Song Database-->
<Songs>
  <Song><Name>3 Ways - Fake Love</Name><Year>2000-2006</Year><Genre>Dance</Genre><Bitrate>128</Bitrate><Length>03:50</Length><Size>3,51</Size></Song>
  <Song><Name>3 Ways - Fake Love</Name><Year>2000-2006</Year><Genre>Dance</Genre><Bitrate>128</Bitrate><Length>03:50</Length><Size>3,51</Size></Song>
  <Song><Name>A7 - Piece Of Heaven</Name><Year>2000-2006</Year><Genre>Dance</Genre><Bitrate>128</Bitrate><Length>03:27</Length><Size>3,17</Size></Song>
 </Songs>

使用这个函数，我按 XML 元素的“名称”值对它们进行排序，并且我尝试使用该Distinct方法删除重复的名称，但这没有任何作用。

Private Function Sort_XML_By_Element(ByVal XML As XDocument, _
                                 ByVal Root_Element As String, _
                                 ByVal Element_to_sort As String) As XDocument

    Dim xdoc As XDocument

    xdoc = XML
    xdoc.Root.ReplaceNodes(XML.Root.Elements(Root_Element) _
                              .OrderBy(Function(sort) sort.Element(Element_to_sort).Value).Distinct)

    Return xdoc

End Function
4

1 回答 1

4

使用删除扩展方法而不是Distinct. 此方法将从文档中删除所有选定的节点。C#代码：

xdoc.Root.Elements("Song")
    .GroupBy(s => (string)s.Element("Name"))
    .SelectMany(g => g.Skip(1)) // select all nodes from group except first one
    .Remove();

VB

xdoc.Root.<Song> _
    .GroupBy(Function(s) CStr(s.Element("Name"))) _
    .SelectMany(Function(g) g.Skip(1)) _
    .Remove()
于 2013-10-26T12:18:45.333 回答