VBScript-XML - Erreur : 800A01A08 (objet requi)

**JojoSs** · 18/02/2014, 00h14

Bonjour,

Je voulais créer un VBScript qui puisse lire un XML.
Je me suis inspiré de ce model :
http://baptiste-wicht.developpez.com...ipt/xml/xpath/

Et j'ai cette erreur :
Windows Script Host
Scrip j:\Prog\VBS-XML\VBS-XML01.vbs
Ligne: 15
Caract. : 1
Erreur : Objet requis: 'personneElement'
Code : 800A01A08
Source : Erreur d'execution Microsoft VBScript

mon XML

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
18
19
20
21
 
<?xml version="1.0" encoding="ISO-8859-1"?>
 
<Personnes>
	<Personne>
		<NewText01>Jorge</NewText01>
		<NewText02>Dommingues LOPES</NewText02>
		<NewText_03>M</NewText_03>
		<NewText04>1975.12.30</NewText04>
		<NewText_07>[ !?_Ville_?! ], [ !?_Etat / Province_?! ], [ !?_Pays_?! ]</NewText_07>
		<NewText_08>_AAAA-MM-JJ_</NewText_08>
		<NewText_09>[ !?_Ville_?! ], [ !?_Etat / Province_?! ], [ !?_Pays_?! ]</NewText_09>
	</Personne>
 
	<Personne>
		<NewText01>Jorge</NewText01>
		<NewText02>Dommingues LOPES</NewText02>
		<NewText_03>M</NewText_03>
		<NewText04>1975.12.30</NewText04>
	</Personne>
</Personnes>

Mon code

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
18
19
20
21
22
23
24
25
 
'	La première chose à faire dans notre code est donc d'initialiser un parseur :
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
 
'	Il nous faut maintenant ouvrir notre fichier. 
'	On va également indiquer au parseur de charger tout le fichier en mémoire avant de commencer à le parser :
xmlDoc.Async = "false"
xmlDoc.Load("Peoples_Arbre00_01.xml")
 
'On récupère tous les noeuds personnes 
'à l'intérieur d'un noeud personnes
For Each PersonneElement In xmlDoc.selectNodes("/Personnes/Personne")
Next
 
'On récupère les informations sur la personne
nom = PersonneElement.selectSingleNode("NewText01").text
prenom = PersonneElement.selectSingleNode("NewText02").text
dateN = PersonneElement.selectSingleNode("NewText04").text
 
MsgBox	"Nom : " & nom & vbcrlf & _ 
		"Prénom : " & prenom & vbcrlf & _ 
		"Date de naiss : " & dateN
 
 
Set xmlDoc = Nothing

J'ai l'impression que c'est une histoire de variable?
Je connais très mal le VBScript !!!

cette variable devra être global

Merci de votre aide

Jorge

**ProgElecT** · 18/02/2014, 07h12

Salut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
For Each PersonneElement In xmlDoc.selectNodes("/Personnes/Personne")
' Next ' <<<<<<<<<<<<< pas au bon endroit >>>>>>>>>>>>>>>
 
'On récupère les informations sur la personne
nom = PersonneElement.selectSingleNode("NewText01").text
prenom = PersonneElement.selectSingleNode("NewText02").text
dateN = PersonneElement.selectSingleNode("NewText04").text
 
MsgBox	"Nom : " & nom & vbcrlf & _ 
		"Prénom : " & prenom & vbcrlf & _ 
		"Date de naiss : " & dateN
Next '<<<<<<<<<<<<<<<< là, cela devrait aller mieux >>>>>>>>>>>>>>>>>>

**JojoSs** · 18/02/2014, 20h29

Merci ProgElecT,
j'ai plus de msg d'erreur

par contre j'au rien que s'affiche !!!
vbs-xml_JojoSs.zip

J'ai rajouté deux msgBox (1 avant la boucle et l'autre après) et ça marche
je comprend pas !!!!

**ProgElecT** · 18/02/2014, 22h41

Le

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
18
19
20
21
22
23
24
'	La première chose à faire dans notre code est donc d'initialiser un parseur :
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
 
'	Il nous faut maintenant ouvrir notre fichier.
'	On va également indiquer au parseur de charger tout le fichier en mémoire avant de commencer à le parser :
xmlDoc.Async = "false"
xmlDoc.Load("C:\PersoFrancis\pour voire\truc\Peoples_Arbre00_01.xml")
 
'On récupère tous les noeuds personnes
'à l'intérieur d'un noeud personnes
For Each PersonneElement In xmlDoc.selectNodes("/Personnes/Personne")
 
 
'On récupère les informations sur la personne
nom = PersonneElement.selectSingleNode("NewText01").text
prenom = PersonneElement.selectSingleNode("NewText02").text
dateN = PersonneElement.selectSingleNode("NewText04").text
 
MsgBox	"Nom : " & nom & vbcrlf & _
		"Prénom : " & prenom & vbcrlf & _
		"Date de naiss : " & dateN
 
Next
Set xmlDoc = Nothing

Le xml

Code XML :

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
18
19
20
<?xml version="1.0" encoding="ISO-8859-1"?>
 
<Personnes>
	<Personne>
		<NewText01>Jorge</NewText01>
		<NewText02>Dommingues LOPES</NewText02>
		<NewText_03>M</NewText_03>
		<NewText04>1975.12.30</NewText04>
		<NewText_07>[ !?_Ville_?! ], [ !?_Etat / Province_?! ], [ !?_Pays_?! ]</NewText_07>
		<NewText_08>_AAAA-MM-JJ_</NewText_08>
		<NewText_09>[ !?_Ville_?! ], [ !?_Etat / Province_?! ], [ !?_Pays_?! ]</NewText_09>
	</Personne>
 
	<Personne>
		<NewText01>ProgElect</NewText01>
		<NewText02>Francis MILLET</NewText02>
		<NewText_03>M</NewText_03>
		<NewText04>1956.04.13</NewText04>
	</Personne>
</Personnes>

J'ai bien les 2 différents messages avec les 3 lignes d'informations

**JojoSs** · 19/02/2014, 20h40

Merci ProgElecT,

En effet, en repartant avec votre code ca marche!

C'est mon fichier xml qui est corrompu, par contre je comprend pas!
j'utilise notePad++ et je vois rien d'étrange sur mon fichier: encodage ou autre...
voici mes deux fichiers :vbs-xml_JojoSs_02.zip
Si vous voyez quelque chose! je suis preneur !!!!

j’avoue que ce type de pb peux rendre fous plus d'un, sans parler d'un novice...

Encore merci ProgElecT

**ProgElecT** · 21/02/2014, 18h27

Salut

L'important est que tout fonctionne maintenant.
Le fait est qu'en enregistrant sous notePad++, le fichier ne fonctionne pas, bien que je n'ai pas vue non plus de caractères suspects.

Par contre, en faisant un copier/coller dans notepad ordinaire, là cela fonctionne