Discussion :

[yoda_style]

Bonjour à tous,

Je fais mes premiers pas en ASP/ XML et je ne sais pas comment faire pour pouvoir récupérer et structurer en ASP le contenu de mon fichier XML

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<docXml>
<donnees>
<europe>
<pays>Belgique</pays>
<capitale>Bruxelles</capitale>
</europe>
<europe>
<pays>France</pays>
<capitale>Paris</capitale>
</europe>
</donnees>
</docXml>

Dans ma page ASP, je me demandais comment je pourrais faire pour compter le nombre de <europe> dans le but de boucler les pays et capitale pour les stocker dans un tableau ASP.

Merci à vous,

Greg

[franculo_caoulene]

Salut,

tu as fait des recherches sur XML DOM?

[yoda_style]

non et merci pour la ressource.

Néanmoins, je ne suis une flèche en anglais mais je vais essayer de voir ce qu'il y raconte

[yoda_style]

ok, le problème est réglé grâce à la source de franculo_caoulene
voici ce que ça donne si ça peu aider quelqu'un

Merci pour ton aide

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
34
35
36
37
38
39
40
41
42
43
44
45
 
<%
'DEBUT TRAITEMENT XML-----------------------------------------------------------------
Dim XmlDoc, rootElement
 
	Dim paysNode, pays
	Dim capitaleNode, capitale
 
Set XmlDoc = Server.CreateObject("Microsoft.XMLDOM")
 
if(XmlDoc.load (Server.MapPath(".")&"/FichierInc/testXML.xml")) then 
 
	' --- Get the root element ---
Set rootElement = xmlDoc.documentElement
 
Set paysNode = rootElement.getElementsByTagName("pays")
Set capitaleNode = rootElement.getElementsByTagName("capitale")
n_pays =  paysNode.length
 
 
 
i=0
chaine_pays = ""
chaine_capitale = ""
 
while i<n_pays
	chaine_pays = chaine_pays+paysNode.item(i).text+","
	chaine_capitale = chaine_capitale+capitaleNode.item(i).text+","
	i=i+1
wend
 
	long_chaine_pays = len(chaine_pays)
	long_chaine_capitale = len(chaine_capitale)
	chaine_pays = mid(chaine_pays,1,long_chaine_pays-1)
	chaine_capitale = mid(chaine_capitale,1,long_chaine_capitale-1)
 
    else
      '--- Si une erreur s'est produite
      set XmlDoc = Nothing
      response.write("Une erreur s'est produite pendant le chargement du fichier XML")
      response.end
   end if
 
   set XmlDoc =Nothing
'FIN TRAITEMENT XML------------------------------------------------------