Discussion :

[thierrybatlle]

Bonjour à tous,

J'ai un fichier de ce type là :

<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<!DOCTYPE properties SYSTEM "http://java.sun.com/dtd/properties.dtd">
<properties>
<comment>VGP properties</comment>
<entry key="image.ratio">0.5</entry>
<entry key="begin.password">false</entry>
<entry key="disk.space">1</entry>
<entry key="ids.version">2.6</entry>
<entry key="screen.width">1280</entry>
<entry key="screen.height">1024</entry>
</properties>

Je souhaite extraire les valeurs contenu entre les balises.
J'ai essayé avec les fonctions XML, mais cela n'a pas l'air de fonctionner.

Si quelqu'un a une idée ?

Merci

[mail.spam]

Bonjour,
Quand tu dis

mais cela n'a pas l'air de fonctionner.

Ca veux dire quoi? tu as un message d'erreur?
Peux tu nous mettre le code que tu as essayé pour faire ton extraction d'info?

Merci d'avance

[Hibernatus34]

Bonjour,

Je n'ai pas beaucoup d'expérience avec le XML sous WinDev, mais :
- Créez un XML d'exemple nommé "desc_properties.xml"
- Glissez-le sur l'arborescence du projet (pour l'ajouter dans les descriptions XML)
- Copiez ce code :

Code :

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

1
2
3
4
5
6
7
8
9
 
// Vous pouvez enlever la partie <description=...>
// Elle sert à la complétion uniquement
xdProp est un xmlDocument <description="desc_properties">
 
xdProp = XMLOuvre(".properties")
POUR TOUT xnEntry DE xdProp.properties sur entry
	Trace(xnEntry ..Attribut["key"] + " = " + xnEntry ..Texte)
FIN

Je pense que c'est la manière la plus simple.
Il y a plein d'autres façons de faire.

(en fait, les 2 premières étapes ne sont nécessaires que pour la complétion, le code marcherait aussi sans la description XML)

[thierrybatlle]

Voici le bout de code que j'utilise :

Code :

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

1
2
3
 
sSourceXMl est une chaîne = fChargeTexte(m_sPathPropertiesFile)
Trace("XML : " + XMLExtraitChaîne(sSourceXMl,"<entry key=""ids.version"">"))

Merci

[Hibernatus34]

Bonjour,

XMLExtraitChaîne cherche une balise, donc "entry" seul, et pas la balise avec les attributs.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
sSourceXMl est une chaîne = fChargeTexte(m_sPathPropertiesFile)
sVal est une chaîne
nIndice est un entier = 0
 
BOUCLE
	nIndice++
	sVal = XMLExtraitChaîne(sSourceXMl,"entry", nIndice)
	SI sVal <> "" ALORS
		Trace("XML : " + sVal)
	FIN
FAIRE TANTQUE sVal <> ""

Mais je vous recommande d'utiliser des fonctions un peu plus adaptées :

Code :

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

1
2
3
4
5
6
xdProp est un xmlDocument
 
xdProp = XMLOuvre(m_sPathPropertiesFile)
POUR TOUT xnEntry DE xdProp.properties sur entry
	Trace(xnEntry..Attribut["key"] + " = " + xnEntry)
FIN