Problème de lecture XML en vbscript

Bonjour,

Je suis débutant mais persévérant.
En me promenant sur ce site, j'ai découvert comment écrire un vbsript pour lire un fichier xml et en écrire un autre. J'ai donc réalisé quelques essais concluants, mais j'ai un cas précis ou je n'arrive à rien.

Etant donc néophyte, je me heurte à présent à ce même problème en voulant extraire des données XML d'un fichier pour les réécrire dans un autre XML, toujours en vbscript.
Vous trouverez ci-joint le XML initial et la destination.
Je n'ai laissé qu'une ligne sur le XML initial, mais je peux en avoir plusieurs.
Dans le XML destination, j'y ai mis deux lignes (pour l'exemple).

Voici les balises dont je souhaite récupérer les valeurs :
itmOrgData
vOrgDataType = POS
:fleche:vOrgDataValue
vOrgDataType = ITM
:fleche:vOrgDataValue
vVendorArticleNo aStatus="O">UYLD189</vVendorArticleNo>
:fleche:vOrderQuantity
itmPricing
vConditionType = TNET
:fleche:cConditionValue
itmText
vTextType = ARTS
:fleche:vTextContent aTextLineNo
itmText
vTextType = ARTL
:fleche:vTextContent aTextLineNo
itmConfiguration
:fleche:vOpionID = …
:fleche:vValueText ID = …

Et c'est quoi la différence entre ce cas précis et les cas que tu as déjà essayés ? Où est le code ?

En fait, mes deux premiers vbscripts reprennent des informations de l'entête du document. Les informations sont uniques et les balises aussi.

Ici, je suis dans le corps du XML ou je dois récupérer plusieurs lignes.
Ensuite, il ne s'agit pas uniquement de trouver une balise, mais de trouver un noeud "balise" avec un certain "paramétrage", puis de descendre dans le XML pour trouver une autre balise qui correspond au noeud trouvé en question, avec lui aussi une autre variable, et enfin de reprendre une dernière balise avec sa valeur (bref, une recherche à la manière des poupée russes).

Une fois les infos récupérées, je passe au noeud suivant, etc.

C'est bien plus complexe pour moi.:scarymov::scarymov:

Bon, je reprends ma demande :
Voici le vbscript que j'ai écrit :

Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = "false"
xmlDoc.Load("XML_initial.xml")

For Each Lignes In xmlDoc.selectNodes("/itmOrgData")
For Each POS In vOrgDataType = Lignes.getAttribute("POS")

vOrgDataValue = POS.selectSingleNode("vOrgDataValue").text

next
next
MsgBox "vOrgDataValue: " & vOrgDataValue
' "ITM : " & ITM & vbcrlf & _
' "ITEMNO : " & ITEMNO

Set xmlDoc = Nothing

Dans mon fichier XML, je cherche à extraire la valeur de vOrgDataValue si vOrgDataType = POS.
Le script se lance, mais mon messagebox affiche un résultat à blanc.
Le fichier XML d'origine est toujours joint ici.
Merci de m'aider, je suis pommé là.

[0] Il faut être clair: personne ne puisse comprendre de quoi vous parlez...

Citation:

---

vOrgDataType = POS
vOrgDataValue
vOrgDataType = ITM
vOrgDataValue
vVendorArticleNo aStatus="O">UYLD189</vVendorArticleNo>
...

---

Ce n'est pas comme ça qu'on résume un document xml.

[1] Et puis, le script vbs est tellement incorrect même sur le plan syntactique pour ne pas dire la logique d'intention... Ce n'est peut-être pas un très grand langage vbs mais il command tout de même un peu de respect: il faut l'apprendre et apprendre bien pour l'utiliser. Et il fait ses besognes exceptionnellement bien.

[2] Je ne peux pas vous prendre la main tout au long: je ne peux que vous montrer un script en modifiant le vôtre qui contient un grand nombre d'éléments bien nécessaire de savoir, vbs et xml.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

'Set xmlDoc = CreateObject("Microsoft.XMLDOM") Set xmlDoc=CreateObject("msxml2.domdocument") xmlDoc.setProperty "SelectionLanguage", "XPath" 'case sensitive 'xmlDoc.Async = "false" xmlDoc.Async = false 'xmlDoc.Load("XML_initial.xml") bret=xmlDoc.Load("XML_initial.xml") if bret then For Each Lignes In xmlDoc.selectNodes("//itmOrgData") For Each POS in Lignes.selectNodes("vOrgDataType") if POS.text="POS" then set node=POS.selectSingleNode("following-sibling::vOrgDataValue") if not(node is nothing) then MsgBox node.text end if end if Next Next end if   'MsgBox "vOrgDataValue: " & vOrgDataValue ' "ITM : " & ITM & vbcrlf & _ ' "ITEMNO : " & ITEMNO   Set xmlDoc = Nothing

---

Ce n'est pas efficace d'apprendre vbs avec xml. Mais l'inverse? c'est un peu mieux. Avec tous les deux à apprendre en même temps? c'est presque insouhâitable.

:ccool:
Bon, voilà, j'ai travaillé sur le sujet cet après-midi et j'ai découvert plein de choses.
Le correctif que vous m'apportez m'apporte encore des réponses.
Je vais maintenant tenter d'ajouter encore des informations pour terminer ce que j'essaye de faire.
Et oui, je suis débutant et je fait bien des erreurs, mais j'apprends progressivement.
Encore merci pour le coup de pouce.
:bravo:

:cry:
Et voilà, je me heurte encore à un soucis.
Le code que vous m'avez donné fonctionne à merveille.
J'ai cependant un nouveau problème.
Je teste la balise POS puis ITM
Si POS existe dans la section et pas ITM, je souhaite écrire un texte fixe pour remplacer la valeur de ITM.
Par contre si POS puis ITM existe, je reprend la valeur de ITM.
Je planche là dessus depuis hier soir et j'en ai mal dormis.
Décidément, je me sent nul.
Maintenant je suis certain qu'il y a ici des cadors qui seront m'aiguiller.