Discussion :

[jacquesprogram]

Bonjour,
décidément, cette gestion du Xml dans Windev me cause des soucis...
Mon fichier Xml se présente ainsi (extrait):

Code xml :

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

1
2
3
4
5
6
 
<Files>
<File md5="012345">XML\Monfichier.xml</File>
<File md5="012345">XML\Monfichier2.xml</File>
<File md5="012345">XML\Monfichier3.xml</File>
</Files>

Je souhaite boucler sur chaque sous-élément <File> jusqu'au dernier.
J'ai écrit ceci (avant l'appel de ce code, la position dans le document Xml est sur la balise-mère <Files>):

Code :

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

1
2
3
4
5
6
7
8
 
XMLFils("DocXML")
TANTQUE XMLNomElément("DocXML") = "File"
	sFichier est une chaîne = XMLDonnée("DocXML","")
	sMD5 est une chaîne = XMLDonnée("DocXML","md5")
	gtaFichiersMod[sFichier] = sMD5
	XMLSuivant("DocXML")	
FIN

Et là, il boucle sans fin... Je me suis rendu compte qu'il trouve bien toutes les balises <File> mais reste indéfiniment bloqué sur la dernière.
J'ai alors écrit ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
XMLFils("DocXML")
TANTQUE XMLNomElément("DocXML") = "File"
	sFichier est une chaîne = XMLDonnée("DocXML","")
	sMD5 est une chaîne = XMLDonnée("DocXML","md5")
	gtaFichiersMod[sFichier] = sMD5
	SI XMLDernier("DocXML") = Faux ALORS 
		XMLSuivant("DocXML")
	SINON
		SORTIR	
	FIN
FIN

Et là, il sort directement après la première balise <File> !!
Comment faire pour boucler sur toutes les balises <File> et sortir quand il n'y en a plus ?

[laurent30s]

Avec XMLLit() c'est plus facile...

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
sXML  est une chaîne = [
<Files>
<File MD5="012345">XML\MonFichier.xml</File>
<File MD5="012345">XML\Monfichier2.xml</File>
<File MD5="012345">XML\Monfichier3.xml</File>
</Files>
]
// tu peux faire un
// sMonDoc = fChargeTexte(Tonfichier.xml)
 
XmlDocument("DocXML",sXML)
 
sXPath est une chaîne
nNb_Field est un entier
sAttribut est une chaîne
sValeur est une chaîne
i est un entier
 
// requête XPATH nous retourne le nombre d'élément
sXPath = "count(/Files/File)"
SI XMLExécuteXPath("DocXML",sXPath) ALORS
	SI XMLEnDehors("DocXML") ALORS
		nNb_Field = XMLRésultat("DocXML")
	FIN
SINON
	Erreur(ErreurInfo())
FIN
 
// boucle de parcours des éléments
POUR i = 1 A nNb_Field
	// récup attribut
	sAttribut = XMLLit("DocXML","/Files/File["+i+"]/@md5")
	// récup valeur
	sValeur = XMLLit("DocXML","/Files/File["+i+"]") 
	Info("Nom    = "+ sAttribut + RC + "Valeur = " + sValeur)
FIN

[jacquesprogram]

Super ! Merci.
J'aurais juste aimé savoir pourquoi mon code ne marche pas...

[jacquesprogram]

En fait, XMLDernier pointe sur la dernière balise du document Xml et non pas sur la dernière balise du niveau où l'on se trouve...

[jacquesprogram]

J'ai finalement résolu mon problème sans passer par XMLLit, en beaucoup plus concis:

Code :

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

1
2
3
4
5
6
7
8
9
 
sFichier,sMD5 est une chaîne		
XMLFils("DocXML")
BOUCLE
	sFichier = XMLDonnée("DocXML","")
	sMD5 = XMLDonnée("DocXML","md5")
	gtaFichiersMod[sFichier] = sMD5
	XMLRecherche("DocXML","File",XMLBalise + XMLNiveauCourant,XMLExact)
A FAIRE TANTQUE XMLTrouve("DocXML")

Ça marche nickel !