Discussion :

[thisistheend]

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 :

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

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 :

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

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 :

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
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.

[SfJ5Rpw8]

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 :

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

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

L'ID est un attribut :

Code :

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

 StrID = nodeParent.getAttribute("ID")

[thisistheend]

Bonjour,

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

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 :

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
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!!!