Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: ssccaann43 en Abril 28, 2010, 04:38:13 pm

Título: Cargar XML en 2 Objetos LIST
Publicado por: ssccaann43 en Abril 28, 2010, 04:38:13 pm

Bien, tengo un archivo XML con esta estructura...


(http://r.i.elhacker.net/cache?url=http://www.imagechicken.com/uploads/1272487101060369300.jpg)

Me gustaría saber si es posible cargar la información de ese archivo en 2 objetos, 2 LIST...

En el List1 cargar la información de Title
En el List2 cargar la información de Location

Si alguien tiene un ejemplo, o algo donde pueda guiarme, se lo agradezco...

Saludos

Título: Re:Cargar XML en 2 Objetos LIST
Publicado por: ssccaann43 en Abril 28, 2010, 06:37:47 pm

Ok, resuelto el tema...

Por si alguien necesita algo igual... Puede mirar este ejemplo...!

Bajar Aquí (http://www.filedropper.com/leerxml)

Saludos...

Título: Re:Cargar XML en 2 Objetos LIST
Publicado por: LeandroA en Abril 28, 2010, 06:58:18 pm

Código: [Seleccionar]

Option Explicit

Private Sub Form_Load()
    Dim ObjXmlDoc As Object
    Dim Nodo As Object
   
   
    Set ObjXmlDoc = CreateObject("Microsoft.XMLDOM") 'New DOMDocument
    ObjXmlDoc.resolveExternals = True
    ObjXmlDoc.async = False
   
    Call ObjXmlDoc.Load("http://www.musicaseria.net/playlist.php")
   
    For Each Nodo In ObjXmlDoc.getElementsByTagName("playlist/trackList/track")
        List1.AddItem Nodo.childNodes(0).Text
        List2.AddItem Nodo.childNodes(1).Text
    Next

End Sub

Título: Re:Cargar XML en 2 Objetos LIST
Publicado por: ssccaann43 en Abril 28, 2010, 07:05:16 pm

Leandro, sos Groso...! ;D