C# と VB.NET の質問掲示板

■No58891 (やんまー さん) に返信

別案です。 "<a>"はこの掲示板では投稿できなかったため、"<t>"に変更してあります。
Dim ds As New DataSet
Dim dt As DataTable
Dim xml As String = "<?xml version=""1.0""?>" & _
                    "<root>" & _
                    "<t>" & _
                    "<b>b-tag</b>" & _
                    "<c>c-tag</c>" & _
                    "<d>d-tag</d>" & _
                    "<e>e-tag</e>" & _
                    "</t>" & _
                    "<t>" & _
                    "<b>b2-tag</b>" & _
                    "<c>c2-tag</c>" & _
                    "<d>d2-tag</d>" & _
                    "<e>e2-tag</e>" & _
                    "</t>" & _
                    "</root>"

Dim text As TextReader = New StringReader(xml)

ds.ReadXml(text, XmlReadMode.InferSchema)
dt = ds.Tables("t")
For Each row As DataRow In dt.Rows
    Debug.Print(row("b").ToString())
    Debug.Print(row("c").ToString())
    Debug.Print(row("d").ToString())
    Debug.Print(row("e").ToString())
Next