Récuperer données xml

Résolu
waspy59 Messages postés 189 Date d'inscription mercredi 24 novembre 2004 Statut Membre Dernière intervention 15 mai 2013 - 22 oct. 2007 à 23:38
waspy59 Messages postés 189 Date d'inscription mercredi 24 novembre 2004 Statut Membre Dernière intervention 15 mai 2013 - 24 oct. 2007 à 13:54
Bonjour,

J'ai un fichier xml avec la strucutre suivante:

<DONNEES>
         
                     <NomLog>ProjetCB</NomLog>
                    <language>french</language>
                    xxxxxxx
                    yyyyy
        
        
                   
                                 <Shortname>Truc1</Shortname>
                                 <Code1>111</Code1>
                                 <Code2>222</Code2>
                   

                   

                                 <Shortname>bidule2</Shortname>

                                 <Code1>111</Code1>

                                 <Code2>222</Code2>

                   

       

</DONNEES>

Le nombre de Balises pouvant aller de 0 à .....
Je souhaite recuperer dans une listebox le NOM de chaque PARAMETRE (si présent). J'ai fait plusieurs essais en vain (xpath...)
Si quelqu'un peut me mettre sur la voie avec un exemple... merci

ps: quand j'aurai la liste des NOM des PARAMETRE dans la listbox, je souhaite afficher dans des textbox les valeurs des noeuds fils des noeuds PARAMETRE.

Mais debutant enVB.net. et xml, j'éprouve quelque difficultés que les tuto et exemple glanés ca et là n'ont sus effacer...

A l'avance merci

1 réponse

waspy59 Messages postés 189 Date d'inscription mercredi 24 novembre 2004 Statut Membre Dernière intervention 15 mai 2013
24 oct. 2007 à 13:54
J'ai trouvé.... je met le code cela peut servir a quelqu'un:

 Dim elementRecord As XmlNodeList
        Dim noeudCl As XmlNode
        elementRecord = xmlDoc.DocumentElement.GetElementsByTagName("PARAMETRE")
        For Each noeudCl In elementRecord
            If noeudCl.LocalName = "PARAMETRE" Then
                ListParametre.Items.Add(noeudCl.Attributes("NOM").Value)
            End If
        Next
3
Rejoignez-nous