Extraction fichier XML

Bonjour,
J'ai un fichier XML, dont je connais le schema, de la forme :
Pièce jointe 100157

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:

---

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:

---

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.

Hello,

Voici une proposition :

Code:

---

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:

---

unNoeud.Attributes("nomAttribut").InnerText

---

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

Code:

---

1 2 3

For Each unNoeud As XmlNode In leNoeudSuperieur   Next

---

En espérant que cela puisse aider ;)