Incapable de parser un fichier xml

[Loki13]

Bonjour,

je suis pas mal débutant en XML, après de brèves recherches sur le sujet, j'ai entreprit d'écrire manuellement un tout petit fichier XML et ensuite de récupérer l'info dedans à l'aide d'une page asp. Mais dès que j'essaie de parser le fichier, le composant ne semble trouver absolument rien comme si le fichier xml était vide.

Quelqu'un aurait une idée ou une suggestion ?
Voici la syntaxe que j'utilise:

Fichier 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
<?xml version="1.0" encoding="ISO-8859-1"?>
<!DOCTYPE Communiques [
	<!ELEMENT Communiques (Message*)>
 
	<!ELEMENT Message (Date, Titre, Texte)>
	<!ATTLIST Message Id ID #REQUIRED> 
 
	<!ELEMENT Date    	(Jour, Mois, Annee)>
	<!ELEMENT Annee   	(#PCDATA)>
	<!ELEMENT Mois 		(#PCDATA)>
	<!ELEMENT Jour    	(#PCDATA)>
	<!ELEMENT Titre    	(#PCDATA)>
	<!ELEMENT Texte    	(#PCDATA)>
]>
<Communiques>
 
	<!-- LISTE DES COMMUNIQUÉS PAR ORDRE CHRONOLOGIUQE -->
 
	<Message Id="Msg_1">
		<Date>
			<Jour>15</Jour>
			<Mois>7</Mois>
			<Annee>2006</Annee>
		</Date>
		<Titre>Titre du premier message</Titre>
		<Texte>Texte du premier message</Texte>
	</Message> 
 
	<Message Id="Msg_2">
		<Date>
			<Jour>9</Jour>
			<Mois>8</Mois>
			<Annee>2006</Annee>
		</Date>
		<Titre>Titre du second message</Titre>
		<Texte>Texte du second message</Texte>
	</Message> 
</Communiques>

Par la suite dans ma page asp:

Code :

1
2
3
4
 
Set objXMLParser = Server.CreateObject("Microsoft.XMLDOM")
 
objXMLParser.loadXML(communiques.xml)

Aucune erreur ne se produit, mais le parser est vide comme si fichier n'avait aucun contenu, quelqu'un voit une erreur dans ma façon de procéder ?

Merci de votre aide

[Swoög]

Ton code et ton fichier XML sont tous deux correctes, je pense qu'il s'agit plutôt d'un problème ASP (d'ailleurs je déplace là-bas )

[NoisetteProd]

ce code fonctionne :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
dir = Server.MapPath("./")
set FICHIER_XML = FSO.OpenTextFile(dir & "\communiques.xml",1,false)
Set objXMLParser = Server.CreateObject("Microsoft.XMLDOM") 
objXMLParser.async = False
objXMLParser.loadXML(FICHIER_XML.readAll)
For i = 0 To objXMLParser.documentElement.childNodes.length-1
	response.Write "<hr/>"
	response.Write "Le : " & objXMLParser.documentElement.childNodes.item(i).selectSingleNode("Date").selectSingleNode("Jour").text
	response.Write "/" & objXMLParser.documentElement.childNodes.item(i).selectSingleNode("Date").selectSingleNode("Mois").text
	response.Write "/" & objXMLParser.documentElement.childNodes.item(i).selectSingleNode("Date").selectSingleNode("Annee").text
	response.Write "<br/>"
	response.Write "Titre : " & objXMLParser.documentElement.childNodes.item(i).selectSingleNode("Titre").text
	response.Write "<br/>"
	response.Write "Texte : " & objXMLParser.documentElement.childNodes.item(i).selectSingleNode("Texte").text
	response.Write "<br/>"
Next
response.Write "<hr/>"
%>

Par contre, il semble que le commentaire pose problème, je ne sais pas pourquoi (enlève le pour le moment !)

[Immobilis]

Salut,

j'ai entreprit d'écrire manuellement un tout petit fichier XML

Euh, on n'écrit pas dans un fichier XML comme dans un fichier texte. Il faut utiliser un objet particulier comme dans le code de NoisetteProd.

Code :

Set objXMLParser = Server.CreateObject("Microsoft.XMLDOM")

A+