Récupération de valeurs dans un fichier XML

Bonjour à tous,

J’essaie de développer un petit script VBS qui me lirait un fichier XML et en extrairait certains éléments.
Je m’explique. Mon fichier XML ressemble à ça :

Code:

---

1 2 3 4

<ITEM ID="RT789" SUPPORT="5"><OWNER>TEX</OWNER><GROUP>BILLING</GROUP><TEST>Unknown</TEST><CODE>5</CODE><CODEGROUP>45</CODEGROUP></ITEM> <ITEM ID="YN524" SUPPORT="8"><OWNER>OHI</OWNER><GROUP>BILLING</GROUP><TEST>Unknown</TEST><CODE>20</CODE><CODEGROUP>12</CODEGROUP></ITEM> <ITEM ID="WQ102" SUPPORT="9"><OWNER>REP</OWNER><GROUP>MANAG</GROUP><TEST>Unknown</TEST><CODE>32</CODE><CODEGROUP>87</CODEGROUP></ITEM> ...

---

Pour chaque ITEM, je souhaite récupérer l’ID, le CODE et le CODEGROUP et afficher les résultats dans une MessageBox. Par rapport à mon exemple, je voudrais récupérer donc les valeurs suivantes:

Code:

---

1 2 3

ID=RT789 CODE=5 CODEGROUP=45 ID=YN524 CODE=20 CODEGROUP=12 ID=WQ102 CODE=32 CODEGROUP=87

---

J’ai tenté de lancer le code suivant qui ne m'affiche absolument rien. Quelqu’un aurait-il une idée de comment récupérer ces infos ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit   Dim xmlDoc, xmlAttrib, StrID, StrCode, StrGroup, nodeParent   Set xmlDoc = CreateObject("Microsoft.XMLDOM") xmlDoc.async = "false" ' permet de charger entièrement le document en mémoire avant le traitement xmlDoc.Load ("C:\TEMP\Fichier.xml")   For Each nodeParent In xmlDoc.selectNodes("/ITEM") StrID = nodeParent.selectSingleNode("ID").text StrCode = nodeParent.selectSingleNode("CODE").text StrGroup = nodeParent.selectSingleNode("CODEGROUP").text MsgBox "ID=" & StrID & " CODE=" & StrCode & " CODEGROUP=" & StrGroup Next   Set xmlAttrib = Nothing Set xmlDoc = Nothing

---

Merci d’avance pour votre aide.

bonjour,

plusieurs chose... ton XML est complet ? il semble manquer la 1° ligne de déclaration et la balise racine...?

message d'erreur ?

affiche le résultat d'ouverture de ton fichier xml en modifiant la ligne 7

Code:

---

1 2	If not xmlDoc.Load ("C:\TEMP\Fichier.xml") Then msgbox "Erreur ouverture fichier xml"

---

L'ID est un attribut :

Code:

---

StrID = nodeParent.getAttribute("ID")

---

Bonjour,

La rapidité des réponses dans ce forum m'impressione toujours autant :ccool:!

J'ai réussi à résoudre le problème. Tu avais mentionné la balise racine à laquelle je n'avais pas fait attention. Je l'ai rajoutée dans mon code (cf ci-dessous en rouge) et maintenant, ça marche! Ci-dessous le code modifié au cas où cela servirait à d'autres personnes.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Option Explicit Dim xmlDoc, xmlAttrib, StrID, StrCode, StrGroup, nodeParent Set xmlDoc = CreateObject("Microsoft.XMLDOM") xmlDoc.async = "false" ' permet de charger entièrement le document en mémoire avant le traitement xmlDoc.Load ("C:\TEMP\Fichier.xml") For Each nodeParent In xmlDoc.selectNodes("/LISTITEM/ITEM") StrID = nodeParent.getAttribute("ID") StrCode = nodeParent.selectSingleNode("CODE").text StrGroup = nodeParent.selectSingleNode("CODEGROUP").text MsgBox "ID=" & StrID & " CODE=" & StrCode & " CODEGROUP=" & StrGroup Next Set xmlAttrib = Nothing Set xmlDoc = Nothing

---

Merci de ton aide!!!