VB2008で、XML!!!（LINQ to XML）

仕事で、VB２００８を使い始めました。
そこで、VB２００８では、iniファイルより、XMLの使用を推奨しているとの情報を得て、
XMLの使い方を調べました。
すぐに、わかりやすいサイトが見つかるかと思ったら…意外と無かったので、ここにメモします。

-- XMLファイル --

c:\temp c:\data 牛乳 ヨーグルト カーテン
----
を読み込む場合のコード
----
Imports System.Xml

Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim uri As String
Dim oElement As XElement
Dim text As String

uri = My.Application.Info.DirectoryPath & "\hoge.xml"
oElement = XElement.Load(uri)

'特定のノードの値を取得する
text = oElement.Descendants("tempPath").First().Value

Debug.WriteLine("tempPath :" & text)

'これでも同じ
Dim text2 As String = _
(From el In oElement... _ Select el).First() Debug.WriteLine("tempPath :" & text) '繰り返しのノードの値を取得する Dim data As IEnumerable(Of XElement) Dim item As IEnumerable(Of XElement) data = oElement.Descendants("data") For Each el As XElement In data text = el.Descendants("title").First().Value Debug.WriteLine("title :" & text) item = el.Descendants("item") For Each el2 As XElement In item Debug.WriteLine("item :" & el2.Value) Next Next End Sub End Class --- 使用に関しては、自己責任でお願いします