lire et traiter un fichier XML avec XMLDOM

**Phiss** · 30/03/2006, 12h44

Bonjour ou rebonjour à tous.
Me revoilà aevc un autre problème.
Je dois lire et traiter un fichier XML afin de récupérer les infos contenues dedans.
J'ai donc opté pour l'objet XMLDOM.

Lorsque je fais mon traitement, il y a une erreur comme suit:

Erreur d'exécution Microsoft VBScript erreur '800a01a8'

Objet requis

et mon code est le suivant.

Code :

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

1
2
3
4
5
6
7
8
Set objXMLDoc = CreateObject("Microsoft.XMLDOM") 
objXMLDoc.async = False 
objXMLDoc.load("fichier.xml") 
Set Root = objXMLDoc.documentElement 
Set Refretour = root.getAttributeNode("retour") 
Set Refcount = root.getAttributeNode("count") 
response.write("Value retour: " & Refretour.value)
response.write("<br>Value count: " & Refcount.value & "<br>")

avec la faute sur la ligne

Code :

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

response.write("Value retour: " & Refretour.value)

Si vous pouviez m'aider ce serait sympa.
Merci.

**amar00** · 30/03/2006, 13h56

il a quelle tête ton fichier?
un truc comme ça? :

Code :

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

1
2
3
4
5
6
 
ici le noeud principal
<root retour="....." count="....">
    ici les autres noeuds
 
</root>

**Phiss** · 30/03/2006, 14h04

Mon fichier est de la forme suivante pour la ligne que j'ai a tester

Code :

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

1
2
3
4
5
6
7
<?xml version='1.0' encoding='ISO-8859-1' ?>
<stack>
<result retour='...' count='...' test='...'></result>
 
...
 
</stack>

**amar00** · 30/03/2006, 14h17

dans ce cas tu dois pointer sur les enfant du noeud principal

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
 
Set objXMLDoc = CreateObject("Microsoft.XMLDOM") 
objXMLDoc.async = False 
objXMLDoc.load("fichier.xml") 
 
'noeud racine
Set Root = objXMLDoc.documentElement 
 
'on va chercher le premier noeud enfant
Set firstResult  = objXMLDoc.documentElement.firstChild 
 
'on récupère les attributs sur ce premier noeud enfant
Set Refretour = firstResult.getAttributeNode("retour") 
Set Refcount = firstResult.getAttributeNode("count") 
 
'on affiche le resultat
response.write("Value retour: " & Refretour.value) 
response.write("<br>Value count: " & Refcount.value & "<br>")

si ça marche pas j'ai pas d'autres idées

**Phiss** · 30/03/2006, 14h20

Merci cela fonctionne.

**Phiss** · 30/03/2006, 17h33

De nouveau un problème donc je rouvre le sujet.

ma problematique complète:

Je reçois une chaine de caractère ayant un format xml et je la stocke dans un fichier avec l'extension xml. ( avec un createtextfile)
Le problème que je viens de voir c'est que les accents et d'autres caractères étaient mals pris en compte. Ce qui fait que mon fichier n'a pas forcement toutes les balises fermées...

Savez vous comment je peux enregistrer un chaine de caractère sans perdre ses infos?
Ou est ce qu'il y a un moyens de passer sans fichier?

**Phiss** · 30/03/2006, 18h03

J'ai deux format qui me parviennent.
Dans le premier cas cela passe sans soucis. Dans le deuxième cela plante.
Tout ça avec le code que amar00 m'a donné.

Code :

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

1
2
3
4
 
<stack total="1">
<result version="..."   retour="..." count="..."/>
</stack>

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
<stack total="1">
<result version="..." retour="..." count="...">
<trans avant="..." >
<detail>...</detail>
<analyse>
<eval date="28/03/2006 16:32:06">...</eval>
</analyse>
</trans>
</result>
</stack>

**amar00** · 31/03/2006, 09h29

je repond à l'avant dernière question
pour charger une instance dom à partir d'un fichier

Code :

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

1
2
 
objXMLDoc.load("chemin physique du fichier")

à partir d'un chaine de caractère

Code :

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

1
2
 
objXMLDoc.loadXML("la chaine xml")

**Phiss** · 31/03/2006, 10h17

J'avais trouvé entre temps mais pas plus de résultats corrects pour autant.

Le problème vient plus du fait qu'il n'arrive pas à lire correctement le deuxième exemple ci dessus.

**amar00** · 31/03/2006, 11h05

Quand tu l'affiches dans internet explorer il le fait correctement ou non?
Si oui comment cherches-tu à parser ton fichier, quel message d'erreur?

**Phiss** · 31/03/2006, 16h57

Pour l'affichage, cela passe pas car les accents sont pas pris en compte correctement. du coup il y a des balises qui sont mal implantées...

Pour le message d'erreur c'est

Code :

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

 Objet requis: '[object]'

pour info c'est sur la ligne

Code :

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

Set firstResult  = objXMLDoc.documentElement.firstChild

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
26
27
28
29
30
31
32
33
 
Set objXMLDoc = CreateObject("Microsoft.XMLDOM") 
objXMLDoc.async = False 
objXMLDoc.loadxml(objHttpRequest.responsetext) 
 
'noeud racine 
Set Root = objXMLDoc.documentElement
 
'on va chercher le premier noeud enfant 
Set firstResult  = objXMLDoc.documentElement.firstChild 
 
'on récupère les attributs sur ce premier noeud enfant 
Set Refretour = firstResult.getAttributeNode("retour") 
Set Refcount = firstResult.getAttributeNode("count") 
 
'on affiche le resultat 
 
if refcount.value = "1" then
	Set NodeList = RESULT.getElementsByTagName("eval") 
	For Each Elem In NodeList 
	 response.write("eval " & Elem.firstChild.nodeValue & "<br>") 
	Next
	Set NodeList2 = RESULT.getElementsByTagName("detail") 
	For Each Elem1 In NodeList2 
	 response.write(" detail " & Elem1.firstChild.nodeValue & " <br>") 
	Next
	Set NodeList3 = RESULT.getElementsByTagName("classement") 
	For Each Elem2 In NodeList3
	 response.write(Elem2.firstChild.nodeValue & "<br>") 
	Next
else
	response.Write("On n'a pas de commande sous cette reference ("& RScommande("id") &") chez fia-net")
end if

**Phiss** · 31/03/2006, 17h05

En fait il y a des caractères illisibles.
Je tourne en rond.
Comment faire?

C'est essentiel en plus.

**amar00** · 31/03/2006, 18h52

Pour que les caractères accentués par exemple ne posent pas problème
spécifie quel jeu de caractères tu utilises

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
<?xml version='1.0' encoding='ISO-8859-1' ?>
<stack total="1"> 
<result version="éééé.." retour="..." count="..."> 
<trans avant="..." > 
<detail>...</detail> 
<analyse> 
<eval date="28/03/2006 16:32:06">...</eval> 
</analyse> 
</trans> 
</result> 
</stack>

j'ai fait le test en vitesse et ça ça marche.
Donc une idée :
Tu concatène <?xml version='1.0' encoding='ISO-8859-1' ?> et ta chaine
xml , puis loadXml .....

**Phiss** · 03/04/2006, 10h39

En fait j'ai changé d'objet pour la récupération du xml et cela passe bien mieux.

Donc c'est bon pour le moment.
Merci en tout cas amar00.

**Alex35** · 13/02/2007, 16h47

et donc c'est quoi cet objet que tu as pris pour charger des fichiers XML??
cela m'interesse...

lire et traiter un fichier XML avec XMLDOM

ASP

Discussions similaires

Partager

Partager