Lire un xml avec vbs

Signaler
Messages postés
23
Date d'inscription
lundi 20 décembre 2004
Statut
Membre
Dernière intervention
22 février 2005
-
Messages postés
216
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
26 février 2006
-
Bonjour,

J'ai de gros probleme pour recuperer les données dans un fichier xml.
Voila mon code :

Option Explicit


Dim xmlDoc : Set xmlDoc = CreateObject("Microsoft.XMLDOM")


If xmlDoc.load("C:\Projet\P_Backup\FichierDefinition.xml") Then
WScript.Echo "Le document a été chargé avec succès."
wscript.Echo "xmlDoc.attributes = " & xmlDoc.nodename
Dim x
For x 0 To x xmlDoc.nodeType

WScript.Echo xmlDoc.nodeName

next

Else
WScript.Echo "Impossible de charger le document"

End If

Mon fichier XML :

<?xml version="1.0" encoding="ISO-8859-1"?>
<Sauvegarde>
<Source>C:\W1\</Source>
<Cible>C:\TEST\</Cible>
<Option>True</Option>
</Sauvegarde>

Elpiojo

3 réponses

Messages postés
216
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
26 février 2006
1
Tu peux pas utiliser :
Set xmlDoc = new Microsoft.XMLDOM
au lieu de :
Set xmlDoc = CreateObject("Microsoft.XMLDOM")

quand a : For x 0 To x xmlDoc.nodeType
tu devrait pas plutot écrire :
For x = 0 To xmlDoc.nodeType


Messages postés
23
Date d'inscription
lundi 20 décembre 2004
Statut
Membre
Dernière intervention
22 février 2005

ok merci, je ne vais pas te demander de faire mon programme, si tu connais un doc traitant de vbs & xml de preference en français. Je sais qu'il n'y a pas grand chose en francais mais j'aurais esayé!
Encore merci, tu m'as permis de debloquer le debut de mon code.

Elpiojo
Messages postés
216
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
26 février 2006
1
alors là... le xml est obscur pour moi... mais je vais chercher de la doc, ça m'interraisserait de pouvroir lire les xml.