Discussion :

[83alex83]

Bonjour,
pour lire un fichier XML pas très gros, j'ai voulu utiliser un XElement :

Code :

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

Dim elt = XElement.Load("C:\Application\fichier.txt")

Le fichier a la structure suivante :
<idcommande>123456</idcommande>
<datecommande>2015-07-19</datecommande>
<lignes>
<article0>
<ref0>test 0</ref0>
<designation0>article de test 0</designation0>
</article0>
<article1>
<ref1>test 1</ref1>
<designation1>article de test 1</designation1>
</article1>
</lignes>

pour lire la valeur des noeuds, j'utilise elt...<nom_balise>.value

Ce que je souhaite, c'est de pouvoir construire au fur et à mesure de la lecture ma variable nom_balise
C'est-à dire ne pas être obligée d'écrire elt...<ref0>.value mais mettre dans une boucle :
name=ref & compteur
elt...<name>.value

Est-ce que quelqu'un sait comment faire?

Merci d'avance pour votre aide.
Bonne journée

[VinPel]

Bonjour,

Est-ce que tu es "maître" du format de fichier XML ? Celui-ci ne respecte en effet pas le principe des fichiers XML. Idéalement, ton fichier devrait ressembler à quelque chose comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
<idcommande>123456</idcommande>
<datecommande>2015-07-19</datecommande>
<lignes>
	<article>
		<ref>test 0</ref>
		<designation>article de test 0</designation>
	</article>
	<article>
		<ref>test 1</ref>
		<designation>article de test 1</designation>
	</article>
</lignes>

Ensuite, pour le lire, tu peux facilement utiliser une boucle pour lire chaque article sans te préoccuper du nom de tes balises :

Code :

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

1
2
3
4
5
6
7
8
9
Dim doc = XDocument.Load(...)
Dim rootNode = doc.Element(XName.Get("root"))
Dim ligneNode = rootNode.Element(XName.Get("lignes"))
Dim articleNodes = ligneNode.Elements(XName.Get("article"))
 
For Each elem In articleNodes
    Dim refArticle = elem.Element(XName.Get("ref")).Value
    Dim DescriptionArticle = elem.Element(XName.Get("designation")).Value
Next