タグ:

重複を無視してエレメントの値を取得する

サンプルコード

Sub Main()
  Dim root As XElement = XElement.Load("C:\SampleXML.xml")
  Dim query As IEnumerable(Of String) = From C In root.Descendants("Item") _
                                      Select ask = C.Value Distinct
  For Each s In query
    Console.WriteLine(s)
  Next
End Sub

出力結果

<?xml version="1.0" encoding="utf-8"?>
<Root>
   <Item name="Item-001">a</Item>
   <Item name="Item-002">b</Item>
   <Item name="Item-007">c</Item>
   <Item name="Item-003">a</Item>
   <Item name="Item-008">b</Item>
   <Item name="Item-004">c</Item>
   <Item name="Item-009">a</Item>
   <Item name="Item-005">b</Item>
   <Item name="Item-010">c</Item>
   <Item name="Item-006">a</Item>
   <Item name="Item-011">d</Item>
</Root>