Lire un xml avec vbs

cs_ElPiojo
Messages postés
23
Date d'inscription
lundi 20 décembre 2004
Statut
Membre
Dernière intervention
22 février 2005
- 8 févr. 2005 à 15:32
zippro4012
Messages postés
216
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
26 février 2006
- 9 févr. 2005 à 10:49
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

zippro4012
Messages postés
216
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
26 février 2006
1
8 févr. 2005 à 17:59
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


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

9 févr. 2005 à 10:10
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
0
zippro4012
Messages postés
216
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
26 février 2006
1
9 févr. 2005 à 10:49
alors là... le xml est obscur pour moi... mais je vais chercher de la doc, ça m'interraisserait de pouvroir lire les xml.


0