Parcours d'un fichier XML

**Blooster** · 16/04/2013, 11h35

Bonjour à tous,

Etant novice dans le domaine windev je suis confronté à un soucis depuis pas mal de temps sans trouvé une réponse sur le site officiel / l'aide ou la recherche google.

Voici mon code xml tout simple :

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"?>
-<zylab>-<document name="Proforma_20111130152636.pdf" version="1.1">-
   <fields>
     <field id="Date_doc">20111130</field>
     <field id="Fournisseur">Kermene</field>
     <field id="Type_doc">Prefacture Aladin</field>
     <field id="Num_prefacture">F122121</field>
     <field id="Num_bon">BL123456</field>
     <field id="Rayon">Boucherie</field>
     <field id="Num_bon_retour">BR126398</field>
   </fields>
</document></zylab>

Et voici comment je souhaite parcourir les champs fields et afficher la valeur du champ qui à pour id Fournisseur :

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
// Initialisation de la variable XMLDoc qui contiendra le contenu xml du fichier d'exempleXML.xml
XMLDoc est un xmlDocument, description = "exempleXML"
// Chargement du fichier exempleXML dans XMLDoc
XMLDoc = XMLOuvre(ComplèteRep(fRepExe())+"C:\Mes Projets\testFichierXml\Exe\exempleXML.")
// Affichage du numéro de version xml du fichier courant
paramsGeneraux est un xmlNoeud
paramsGeneraux = XMLDoc.zylab.document.fields
 
POUR TOUT unField DE paramsGeneraux
	Info("Vous êtes rentré dans la boucle !")
	SELON unField:id
		CASE "Fournisseur"
			Info(unField:id..Valeur)
		AUTRE CAS
			Info("Aucun champ de contient le nom du fournisseur")	
	FIN
FIN

Le problème vien très certainement de ça :

Code :

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

paramsGeneraux = XMLDoc.zylab.document.fields

Mais je ne vois pas^^

Impossible de rentrer dans mon POUR ( vu avec le débogueur ) et je ne comprend pas mon erreur.
Je dois sûrement faire une erreur bête mais je tourne en rond.

Merci d'avance pour votre aide.

Cordialement,
Blooster.

**Atsibat** · 16/04/2013, 13h00

Code :

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

1
2
3
4
5
6
7
8
9
POUR TOUT field DE XMLDoc.zylab.document.fields
	Info("Vous êtes rentré dans la boucle !")
	SELON field:id
		CASE "Fournisseur"
			Info(unField:id..Valeur)
		AUTRE CAS
			Info("Aucun champ de contient le nom du fournisseur")	
	FIN
FIN

**Blooster** · 16/04/2013, 13h39

Tout d'abord merci de m'avoir répondu rapidement.

Peux tu m'apporter des précisions sur ce que tu viens de faire, du moins sur cette ligne ?

Code :

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

POUR TOUT field DE XMLDoc.zylab.document.fields

Car j'avais fais comme ça :

Code :

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

1
2
3
4
paramsGeneraux est un xmlNoeud
paramsGeneraux = XMLDoc.zylab.document.fields
 
POUR TOUT unField DE paramsGeneraux

Et pour moi c'est exactement la même chose sauf que je stock dans des variables et je trouve ça plus simple de compréhension à vrai dire.

Je viens de tester ton code et je n'ai plus l'erreur mais cela ne marche toujours pas.

Cordialement
Blooster,

**OnePoint** · 16/04/2013, 13h44

Bonjour à tous,

@Blooster

C'est le contenu exact du fichier XML que tu as copié ?
Parce que la deuxième ligne est anormale, vu qu'elle est encadrée de caractères "-" qui n'ont rien à faire là.
Qu'en penses-tu ?

Autre chose.
Pour récupérer le nom du fournisseur (en clair, le texte du xmlNoeud field avec attribut id="Fournisseur") tu dois utiliser sa propriété Texte.

Code :

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

1
2
3
4
5
6
7
 
	SELON unField:id
		CASE "Fournisseur"
			Info(unField..Texte)
		AUTRE CAS
			Info("Aucun champ de contient le nom du fournisseur")	
	FIN

**Blooster** · 16/04/2013, 13h56

Bonjour OnePoint,

J'ai pas été malin sur ce coup là j'aurai dû le préciser, mais le XML que j'ai link correspond au rendu graphique sur un navigateur.
Il n'y a naturellement pas de '-' dans le fichier xml.

Et merci pour :

Code :

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

Info(unField..Texte

Comme je n'avais aucun rendu, je mettais pas rendu compte de mon erreur encore.

Sinon aurais tu une explication à ma question sur mon poste précédent ?

Merci tout de même de ton aide.

Cordialement,
Blooster

**OnePoint** · 16/04/2013, 14h14

Je préfère te donner un code qui fonctionne, pour que tu puisses avancer.
J'ai testé le code ci-dessous.
Que se passe-t-il sur ton poste ?

Code WLangage :

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
 
PROCEDURE Test_XML()
 
sXML  est une chaîne = [
<?xml version="1.0" encoding="ISO-8859-1"?>
<zylab>
<document name="Proforma_20111130152636.pdf" version="1.1">
   <fields>
     <field id="Date_doc">20111130</field>
     <field id="Fournisseur">Kermene</field>
     <field id="Type_doc">Prefacture Aladin</field>
     <field id="Num_prefacture">F122121</field>
     <field id="Num_bon">BL123456</field>
     <field id="Rayon">Boucherie</field>
     <field id="Num_bon_retour">BR126398</field>
   </fields>
</document>
</zylab>
]
// Initialisation de la variable XMLDoc qui contiendra le contenu xml du fichier d'exempleXML.xml
XMLDoc est un xmlDocument	//, description = "exempleXML"
 
// Chargement du fichier exempleXML dans XMLDoc
XMLDoc=XMLOuvre(sXML,depuisChaîne)
//XMLDoc = XMLOuvre(ComplèteRep(fRepExe())+"C:\Mes Projets\testFichierXml\Exe\exempleXML.")
 
// Affichage du numéro de version xml du fichier courant
paramsGeneraux est un xmlNoeud
paramsGeneraux = XMLDoc.zylab.document.fields
 
POUR TOUT unField DE paramsGeneraux
	Info("Vous êtes rentré dans la boucle !")
 
	SELON unField:id
		CAS "Fournisseur"
			TitreSuivant("Fournisseur")
			Info(unField..Texte)
		AUTRE CAS
			TitreSuivant("Autre champ")
			Info(unField:id..Valeur)	
	FIN
FIN

**Blooster** · 16/04/2013, 14h21

Oui j'ai très bien compris le principe.

Mais le problème c'est que je met au moins un système qui convertit les pdfs en texte pour pouvoir les traduire en XML enfin bref, je veux juste faire un test de parcours pour un fichier donné pour me mettre à l'aise avec les propriétés xml de windev que je ne connais pas.

Par conséquent le fichier xml est contenu dans le projet, et donc j'aimerais le parcourir.

C'est peut-être super simple mais ça me rend fou^^

je vais essayé tout de même ce code sur mon poste je tiens au courant ( en éditant )

ça marche bien ce que tu m'as donné, mais comme je t'ai dis je souhaiterai faire ça à partir d'un fichier importé pour mes tests.

Cordialement
Blooster

**OnePoint** · 16/04/2013, 14h44

Envoyé par Blooster

je veux juste faire un test de parcours pour un fichier donné pour me mettre à l'aise avec les propriétés xml de windev que je ne connais pas.

Par conséquent le fichier xml est contenu dans le projet, et donc j'aimerais le parcourir.
[...]
ça marche bien ce que tu m'as donné, mais comme je t'ai dis je souhaiterai faire ça à partir d'un fichier importé pour mes tests.

Mon intention était de partir d'un code qui fonctionne pour que tu le modifies pas à pas jusqu'à atteindre ton but.

Donc puisque ça fonctionne, hé bien maintenant tu reprends ton XMLOuvre() sur le fichier importé et tu testes à nouveau.

**Blooster** · 16/04/2013, 14h51

Le problème c'est que en modifiant tout j'obtiens exactement le même code que je t'ai montré avant.

J'obtiens ça :

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
PROCEDURE Test_XML()
 
 
// Initialisation de la variable XMLDoc qui contiendra le contenu xml du fichier d'exempleXML.xml
XMLDoc est un xmlDocument, description = "exempleXML"
 
// Chargement du fichier exempleXML dans XMLDoc
XMLDoc = XMLOuvre(ComplèteRep(fRepExe())+"C:\Mes Projets\testFichierXml\Exe\exempleXML.")
 
// Affichage du numéro de version xml du fichier courant
paramsGeneraux est un xmlNoeud
paramsGeneraux = XMLDoc.zylab.document.fields
 
POUR TOUT unField DE paramsGeneraux
	Info("Vous êtes rentré dans la boucle !")
 
	SELON unField:id
		CAS "Fournisseur"
			TitreSuivant("Fournisseur")
			Info(unField..Texte)
		AUTRE CAS
			TitreSuivant("Autre champ")
			Info(unField:id..Valeur)	
	FIN
FIN

Je n'ai aucune erreur mais je ne rentre toujours pas dans le POUR TOUT.
Pourtant j'ai essayé de faire un :

Code :

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

Info(XMLDoc.version)

Et ça marche, donc c'est que j'ai bien accès à mon fichier.

Décidément, je crois que je vais finir par me lancé directement dans la création du fichier xml que je veux xD

Merci en tout cas OnePoint

**mail.spam** · 16/04/2013, 14h58

Bonjour,

Je pense que ton problème viens de là

XMLOuvre(ComplèteRep(fRepExe())+"C:\Mes Projets\testFichierXml\Exe\exempleXML.")

Ton chemin d'accès n'est pas correcte.

rajoute ceci après XMLOuvre

Code :

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

1
2
3
SI ErreurDétectée = Vrai ALORS
        Erreur("Impossible d'ouvrir le fichier" ,erreurinfo())
FIN

**Blooster** · 16/04/2013, 15h04

Merci mail.Spam,

J'ai ajouté ce bout de code que tu m'as donné.
Je ne rentre pas dedans ce qui fais qu'il arrive à charger mon fichier.

**mail.spam** · 16/04/2013, 15h08

Il arrive à te charger un fichier dont le chemin est
ComplèteRep(fRepExe())+"C:\Mes Projets\testFichierXml\Exe\exempleXML.".
Avec le point à la fin et fRepExe())+"C:\.

Met le chemin de ton fichier XML dans une variable chaine et regarde la valeur de ta variable.

**Blooster** · 16/04/2013, 15h13

Je viens de test donc en mettant ça :

Code :

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

1
2
3
4
5
6
gsCheminXML est une chaîne = "C:\Mes Projets\testFichierXml\Exe\exempleXML"
// Chargement du fichier exempleXML dans XMLDoc
XMLDoc = XMLOuvre(ComplèteRep(fRepExe())+gsCheminXML)
SI ErreurDétectée = Vrai ALORS
	Erreur("Impossible d'ouvrir le fichier" ,ErreurInfo())
FIN

Et lorsque je debug ma variable gsCheminXML contient effectivement :
C:\Mes Projets\testFichierXml\Exe\exempleXML

Merci de ton aide en tout cas.

**mail.spam** · 16/04/2013, 15h25

Je suis un peu têtu mais le problème n'est pas sur "C:\..."
mais sur "ComplèteRep(fRepExe())+gsCheminXML"

Met ceci dans ton code

trace(ComplèteRep(fRepExe())+gsCheminXML)Ensuite je ne voit pas le nom de ton fichier XML (je ne voit pas l'extension .xml)

**Blooster** · 16/04/2013, 15h39

Pas de soucis, je veux vraiment apprendre donc il n'y a pas de soucis t'inquiète pas.

Je viens d'essayé ce 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
26
27
28
29
PROCEDURE Test_XML()
 
 
// Initialisation de la variable XMLDoc qui contiendra le contenu xml du fichier d'exempleXML.xml
XMLDoc est un xmlDocument, description = "exempleXML"
cheminXML est une chaîne = "C:\Mes Projets\testFichierXml\Exe\exempleXML.xml"
// Chargement du fichier exempleXML dans XMLDoc
XMLDoc = XMLOuvre(ComplèteRep(fRepExe())+cheminXML)
Trace(cheminXML)
SI ErreurDétectée = Vrai ALORS
	Erreur("Impossible d'ouvrir le fichier" ,ErreurInfo())
FIN
 
// Affichage du numéro de version xml du fichier courant
paramsGeneraux est un xmlNoeud
paramsGeneraux = XMLDoc.zylab.document.fields
 
POUR TOUT unField DE paramsGeneraux
	Info("Vous êtes rentré dans la boucle !")
 
	SELON unField:id
		CAS "Fournisseur"
			TitreSuivant("Fournisseur")
			Info(unField..Texte)
		AUTRE CAS
			TitreSuivant("Autre champ")
			Info(unField:id..Valeur)	
	FIN
FIN

Je n'ai pas pu mettre le trace comme tu me la dis tout simplement car j'ai eu une erreur me disant que je ne peux pas mettre un Trace qui ne renvoie rien..

Et sinon même avec le trace que j'ai mis je n'ai aucune informations supplémentaire.
Je sais que ma variable cheminXML contient le chemin c'est tout.

Sinon je suis d'accord avec toi c'est sûrement ça l'erreur ( le chemin ).

Merci,

**mail.spam** · 16/04/2013, 15h48

Allez juste pour finir.

essai de mettre ça

XMLDoc = XMLOuvre(cheminXML).

Car pour moi FRepExe Renvoie le répertoire à partir duquel l'exécution est lancée
donc en gros "C:\Windev"

puis tu fais un complèterep donc on obtient "C:\Windev\"

après tu rajoute le chemin "c:\etc..."
Donc tu auras "C:\Windev\c:\etc..."

qui n'est pas un chemin valide.

Ensuite

**Blooster** · 16/04/2013, 15h53

Oui j'ai déjà essayé plusieurs fois aussi cette syntaxe mais malheureusement je ne passe toujours pas dans le POUR TOUT.

C'est bête quelque chose de simple qui prend tout une autre tournure ^^

Si toi tu voulais faire un parcours comme je veux le faire pour un fichier XML quelconque tu ferais la même chose ?

Donc la logique voudrait que je fasse quoi exactement ?

En tout cas merci.

**laurent30s** · 17/04/2013, 16h25

Perso j'aime bien utiliser XMLLit()

Ce qui donne

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
sXML  est une chaîne = [
	<?xml version="1.0" encoding="ISO-8859-1"?>
	<zylab>
		<document name="Proforma_20111130152636.pdf" version="1.1">
			<fields>
				<field id="Date_doc">20111130</field>
				<field id="Fournisseur">Kermene</field>
				<field id="Type_doc">Prefacture Aladin</field>
				<field id="Num_prefacture">F122121</field>
				<field id="Num_bon">BL123456</field>
				<field id="Rayon">Boucherie</field>
				<field id="Num_bon_retour">BR126398</field>
			</fields>
		</document>
	</zylab>
]
 
XMLDocument("DOM",sXML)
 
sNom est une chaîne
sValeur est une chaîne
i est un entier
 
// 
BOUCLE
	i += 1
	sNom    = XMLLit("DOM","/zylab/document/fields/field["+i+"]/@id")
	sValeur = XMLLit("DOM","/zylab/document/fields/field["+i+"]") 
	SI sNom = "" ALORS
		SORTIR
	FIN
	Info("Nom    = "+sNom + RC + "Valeur = " + sValeur)
FIN
 
// pour une recherche directe par exemple de la valeur du fournisseur
Info(XMLLit("DOM","/zylab/document/fields/field[@id='Fournisseur']"))
 
// idem pour le Rayon du 1ère fields (pour le cas ou il y en aurait plusieurs voir la boucle ci-dessus)
Info(XMLLit("DOM","/zylab/document/fields[1]/field[@id='Rayon']"))

**mail.spam** · 19/04/2013, 13h42

Perso je préfère les requêtes XPath pour le parcours d'un fichier XML.
voir cette exemple

Parcours d'un fichier XML [WD18]

WinDev

Discussions similaires

Partager

Partager