飯粒...粒粒皆辛苦

01 <?xml version="1.0" encoding="utf-8" ?>
02 <Data>
03 <AData value="ff">
04 <ADA>TEST1</ADA>
05 <ADB>12345</ADB>
06 <ADC>TEST2</ADC>
07 </AData>
08 <BData value="dd">
09 <BDA>789</BDA>
10 <BDB>TEST3</BDB>
11 </BData>
12 </Data>

01    Dim dom As New XmlDocument
02         dom.Load(Server.MapPath("test1.xml"))
03          Dim strXml As XmlNodeList = dom.SelectSingleNode("Data").ChildNodes
04         Me.TextBox1.Text = strXml.Count & vbCrLf          
05 For index As Integer = 0 To strXml.Count - 1
06             Me.TextBox1.Text = Me.TextBox1.Text & strXml.Item(index).Attributes("value").Value & vbCrLf
07             Me.TextBox1.Text = Me.TextBox1.Text & strXml.Item(index).Name & vbCrLf  
08             Dim strXmls As System.Xml.XmlNodeList = dom.SelectSingleNode("//" & strXml.Item(index).Name).ChildNodes
09             Me.TextBox1.Text = Me.TextBox1.Text & strXmls.Count & vbCrLf  
10             For d As Integer = 0 To strXmls.Count - 1
11                 Me.TextBox1.Text = Me.TextBox1.Text & "<" & strXml.Item(index).ChildNodes(d).Name & ">" & strXml.Item(index).ChildNodes(d).InnerText & "</" & strXml.Item(index).ChildNodes(d).Name & ">" & vbCrLf
12             Next
13         Next

01 2
02 ff
03 AData
04 3
05 <ADA>TEST1</ADA>
06 <ADB>12345</ADB>
07 <ADC>TEST2</ADC>
08 dd
09 BData
10 2
11 <BDA>789</BDA>
12 <BDB>TEST3</BDB>