Discussion :

[Blencastreur]

Bonjour,
J'ai un fichier XML, dont je connais le schema, de la forme :


Je cherche pour chaque "ITM" a récupérer les valeurs des éléments et des attributs (y compris dans les sous-noeuds).

Pour commencer je procède comme suis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
            Dim Xdoc As XmlDocument = New XmlDocument
 
            Xdoc.Load(Fichier)
 
            Dim NList As XmlNodeList
            NList = Xdoc.DocumentElement.GetElementsByTagName("ITM")

Ensuite j'essaye de balayer les "ITM" avec une boucle :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Module1.j = 0 To NList.Count - 1

Après de multiples essais, je n'arrive pas à récupérer les valeurs voulues.

Auriez-vous une idée?

D'avance merci.

[Tryp']

Hello,

Voici une proposition :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
For Each itmNode As XmlNode In xDoc.DocumentElement.ChildNodes
 
    ' On ne boucle que sur les ITM
    If itmNode.Name = "ITM" Then
 
        ' On affiche le premier attribut d'un ITM
        MsgBox(itmNode.Attributes("Attr1").InnerText)
 
        ' On boucle sur tous les sous-éléments de l'ITM
        For Each eltNode as XmlNode In itmNode
 
        Next
 
    End If
 
Next

Cependant, je ne suis pas sûr de débuter la première boucle au bon endroit, donc ce sera à adapter. En tout cas, l'idée est là :

On récupère l'attribut d'un nœud de cette facon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

unNoeud.Attributes("nomAttribut").InnerText

On peut boucler sur un XmlNode, chaque item étant également un nœud :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each unNoeud As XmlNode In leNoeudSuperieur
 
Next

En espérant que cela puisse aider