Parser un XML avec VB

Version imprimable

Bonjour,

Après avoir écumé la toile et après un petit millier d'essais infructueux, je me tourne vers les pros.
Donc voilà mon souci ! Je cherche à extraire les données contenues dans chaque balises <value> en fonction du l'attribut du nœud <Data>. Mon code lui, extrait toutes les <values> de <Data>
J’espère avoir était assez clair
Merci d'avance

LE XML

Code:

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
<?xml version='1.0' encoding='UTF-8'?>
<kml xmlns='http://www.opengis.net/kml/2.2'>
	<Document>
		<name>1x semaine Lundi.xlsx</name>
		<Placemark>
			<name>038552</name>
			<description><![CDATA[Description_1]]></description>
			<styleUrl>#icon-959-62AF44</styleUrl>
			<ExtendedData>
				<Data name='Nom Client'>
					<value>Non_Client_1</value>
				</Data>
				<Data name='Lieu Exploitation'>
					<value>Lieu_Exploit_1</value>
				</Data>
				<Data name='Adresse'>
					<value>Adresse_1</value>
				</Data>
				<Data name='Code Postal'>
					<value>CP_1</value>
				</Data>
				<Data name='Ville'>
					<value>Ville_1</value>
				</Data>
				<Data name='Longitude WG284'>
					<value>Long_1</value>
				</Data>
				<Data name='Latitute WG284'>
					<value>Long_2</value>
				</Data>
				<Data name='Service'>
					<value>Service_1</value>
				</Data>
			</ExtendedData>
			<address>Adresse_1</address>
		</Placemark>
<Placemark>
			<name>038552</name>
			<description><![CDATA[Description_2]]></description>
			<styleUrl>#icon-959-62AF44</styleUrl>
			<ExtendedData>
				<Data name='Nom Client'>
					<value>Non_Client_2</value>
				</Data>
				<Data name='Lieu Exploitation'>
					<value>Lieu_Exploit_2</value>
				</Data>
				<Data name='Adresse'>
					<value>Adresse_2</value>
				</Data>
				<Data name='Code Postal'>
					<value>CP_2</value>
				</Data>
				<Data name='Ville'>
					<value>Ville_2</value>
				</Data>
				<Data name='Longitude WG284'>
					<value>Long_2</value>
				</Data>
				<Data name='Latitute WG284'>
					<value>Long_2</value>
				</Data>
				<Data name='Service'>
					<value>Service_2</value>
				</Data>
			</ExtendedData>
			<address>Adresse_2</address>
		</Placemark>
 
	</Document>
</kml>

Et Le VBA

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub LectureXml()
 
Dim oXML As MSXML2.DOMDocument
Dim oNode As MSXML2.IXMLDOMNode
 
Set oXML = New MSXML2.DOMDocument
oXML.async = False
oXML.Load "R:\@_Agences\Begles\THIERRY\PTV\Mes Tests\Test_Macro\Lundi_dCom.xml"
 
 
For Each oNode In oXML.SelectNodes("//Data")
Debug.Print oNode.Text
   Next
 
End Sub

26/09/2016, 12h27
jopopmk

Salut,

je n'ai pas bien saisi le souci, et ton code semble fonctionnel.
En fait tu cherches à récupérer la valeur de l'attribut name de ta balise Data ?
Ou tu veux trouver le XPath pour atteindre les balises Data qui auraient un attribut name en particulier ?
26/09/2016, 12h47
Flashouilleur

Salut jopopmk,

Merci pour ta réactivité, en fait je cherche à récupérer le contenu de la balise <value> dans la <Data> en fonction de name.
26/09/2016, 13h39
Sehnsucht

Accessoirement, il faudrait songer à faire déplacer ce sujet, ici c'est la section concernant VB.Net et non pas VBA ;bien que ces 2 langages partagent des éléments de syntaxe il n'en reste pas moins que ce sont 2 langages fondamentalement différents.
26/09/2016, 14h33
jopopmk

VBA : J'avais pas fait attention. J'ai cherché et trouvé une référence COM à MSXML2 dans VS et je m'en suis arrêté là.

D'après mon test, l'attribut text du noeud renvoie toutes les valeurs de tous les sous-éléments. Ainsi si tu n'as qu'une balise value dans chaque balise Data, alors tu obtiendras la valeur de value, et elle-seule, en appelant oNode.Text.

Si tu veux un XPath qui pointe directement sur value tu peux essayé ça :

Code:

string xpath = "//Data/value";

Ça te retournera toutes les balises value, qui sont dans une balise Data n'importe où dans le document.
26/09/2016, 15h15
Flashouilleur

Désolé de pas mettre garé au bon endroit :oops:

En effet J'ai toutes les "value", mais est'il possible de les récupérer en fonction du <Data name = "foo">

Je code en C#, je te laisse faire le passage en VB (t'enlèves les points-virgules et tu colles des Dim et des As par-ci par-là :mrgreen:)

Alors voilà une version propre, qui fait les tests qui vont bien pour pas péter en plein vol :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 // on charge le fichier MSXML2.DOMDocument doc = new MSXML2.DOMDocument(); doc.async = false; doc.load(@"C:\tmp\xml.xml"); // on récupère toutes les balises Data, peu importe leur emplacement MSXML2.IXMLDOMNodeList nodes = doc.selectNodes("//Data"); foreach(MSXML2.IXMLDOMNode node in nodes) { // on va chercher l'attribut name, s'il existe string name = ""; if (node.attributes != null) { MSXML2.IXMLDOMNode attr = node.attributes.getNamedItem("name"); if (attr != null) name = attr.text; } // on va chercher le sous-noeud "value", s'il existe string value = ""; MSXML2.IXMLDOMNodeList subnodes = node.selectNodes("value"); if (subnodes != null && subnodes.length > 0) value = subnodes[0].text; Console.WriteLine(name + " : " + value); }
Maintenant si tu es sûr que ton fichier XML sera toujours comme tu l'as décrit ici (pas de balise inattendu et autre joyeusetés) alors tu peux faire le taff à ce code beaucoup plus simple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 // on charge le fichier MSXML2.DOMDocument doc = new MSXML2.DOMDocument(); doc.async = false; doc.load(@"C:\tmp\xml.xml"); // on récupère toutes les balises Data, peu importe leur emplacement MSXML2.IXMLDOMNodeList nodes = doc.selectNodes("//Data"); foreach (MSXML2.IXMLDOMNode node in nodes) { string name = node.text; // "value" est la seule balise "valuée" string value = node.attributes[0].text; // on a bien toujours un attribut ("name") toujours situé en premier Console.WriteLine(name + " : " + value); }
Edit : tu m'as mis un doute sur ce que tu veux vraiment faire ...
Si tu veux accéder directement à la valeur :
- d'une balise "value",
- contenue dans une balise "Data" (quelque soit sa place dans le DOM),
- ayant pour attribut "name" la valeur "Ville" (pour l'exemple)
Alors tu peux utiliser ce XPath :

Code:

string xpath = "//Data[@name='Ville']/value";

27/09/2016, 07h12
Flashouilleur

Ok je teste, merci ! :aie:

Bon j'ai testé mais le soucis dés la ligne

nodes = doc.SelectNodes("//Data"), j'ai une erreur "utilisation incorrecte de la propriété"

Je creuse, je creuse .... :calim2:
27/09/2016, 14h11
jopopmk

Arf, là c'est du spécifique VBA ...
Je sais même pas où ni comment compiler/interpréter du VBA.
Je peux essayer d'écrire le même code en VB.NET, voir si je tombe sur le même genre d'erreur.
28/09/2016, 10h43
Flashouilleur

Edit : tu m'as mis un doute sur ce que tu veux vraiment faire ...
Si tu veux accéder directement à la valeur :
- d'une balise "value",
- contenue dans une balise "Data" (quelque soit sa place dans le DOM),
- ayant pour attribut "name" la valeur "Ville" (pour l'exemple)
Alors tu peux utiliser ce XPath :

Code:

string xpath = "//Data[@name='Ville']/value";

Génial !!! c'est exactement ce que je recherché merci beaucoup jopopmk !!!! :D
30/09/2016, 13h10
jopopmk

Cool ! J'avais vraiment pas envie de replonger dans du VB pour un test que je savais inutile :mrgreen:

Bon dev :D