XML en Visual Net 2008

[NetFcruz]

Aqui coloco un coee para leer esta en VB.net 2010 bro.
Debes poner un Texbox en forma multilinea llamado "txtContenido.txt" o como tu decidas.

'Nombre de la subrutina.

Sub SubLeerArchivoXml()

'Declaro variable para leer archivo Xml

Dim reader As XmlTextReader = New XmlTextReader("c:\Addenda\Archivos\addenda.xml")

'Ciclo de lectura

Do While (reader.Read())

Select Case reader.NodeType

Case XmlNodeType.Element 'Mostrar comienzo del elemento.

txtContenido.Text += "<" + reader.Name

If reader.HasAttributes Then 'If attributes exist

While reader.MoveToNextAttribute()

'Mostrar nombre y valor del atributo.

txtContenido.Text += Space(1) + reader.Name + "=" + reader.Value

End While

End If

txtContenido.Text += ">" + vbCrLf

Case XmlNodeType.Text 'Mostrar el texto de cada elemento.

txtContenido.Text += reader.Value

Case XmlNodeType.EndElement 'Mostrar final del elemento.

txtContenido.Text += " txtContenido.Text += ">" + vbCrLf

End Select

Loop

'Cierra el Archivo

reader.Close()

End Sub




'Al terminar de leer te lo muestra en el texbox de forma ordenada.
Saludos XD.