VBA - XML - Accès à un noeud

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

J'ai un fichier XML structuré de la manière suivante :
Pièce jointe 283283

J'aimerais parvenir à récupérer la valeur "Tarte" du noeud <refobj> entouré en vert.
Pour y accéder je connais les éléments entourés en rouge.

Je pensais faire la requête suivante :
Code:

1 2 3 For Each Match In Matches.SelectNodes("/project/namespace/namespace/querySubject[name[@locale='en-gb']='Dessert']/queryItem[name[@locale='fr-be']='Patisserie']/expression[name[@locale='en-gb']='Cake']/refobj") MsgBox Match.Text Next
Mais ça ne ramène rien.

Avez-vous une idée pour parvenir à mes fins ?

En vous remerciant par avance.

Cordialement,

07/06/2017, 17h22
Invité

Bonjour,
ton exemple XML me semble parfait, mais même en utilisant Photoshop je n’arrive pas à le parser!

Voici le code au format texte si besoin :)

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
<project>
	<...>
	</...>
	<namespace>
		<namespace>
			...
		</namespace>
		<namespace>
			<name locale="fr-be">Dessert</name>
			<name locale="fr">Dessert</name>
			<name locale="en-gb">Dessert</name>
			<...></...>
			<querySubject>
				<name locale="fr-be">Patisserie</name>
				<name locale="fr">Patisserie</name>
				<name locale="en-gb">Baking</name>
				<...></...>
				<queryItem>
					...
				</queryItem>
					...
				<queryItem>
					...
				</queryItem>
				<queryItem>
					<name locale="fr-be">Gateau</name>
					<name locale="fr">Gateau</name>
					<name locale="en-gb">Cake</name>
					<...></...>
					<expression>
						<refobj>
							Tarte
						</refobj>
					</expression>
				</queryItem>
				<queryItem>
					...
				</queryItem>
			</querySubject>
			<querySubject>
				...
			</querySubject>
			<querySubject>
				...
			</querySubject>
			<querySubject>
				...
			</querySubject>
		</namespace>
		<namespace>
			...
		</namespace>		
		<namespace>
			...
		</namespace>		
	</namespace>
</project>

07/06/2017, 18h21
patricktoulon

re

Bonjour dans le pire des cas si tu n'arrive pas a jouer avec les nodes avec l'object adob

tu le fait simplement en string avec split tout simplement façon JSON
tu split par namespace
tout tes namespace tu les split par "name local"
tu prend le 3eme et tu le splt par ">"(1) et "<"(0)
et tu fait pareil pour l'autre nœud
rien de bien compliqué

perso j'ai essayé avec ulead photo express mais ca n'a pas marché non plus :ptdr:

par contre non l'exemple qu'il a fourni en code n'est pas conforme nœud non fermé
un exemple complet serait le bien venu

car dans l'exemple il y a plusieurs subject pour le même namespace le quel on prend hein ???????

ceci: pour moi est un exemple propre
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 <project> <namespaces> <namespace> <name locale="fr-be">Dessert</name> <name locale="fr">Dessert</name> <name locale="en-gb">Dessert</name> <querySubject> <name locale="fr-be">Patisserie</name> <name locale="fr">Patisserie</name> <name locale="en-gb">Baking</name> <queryItem> <name locale="fr-be">Gateau</name> <name locale="fr">Gateau</name> <name locale="en-gb">Cake</name> <expression> <refobj> 4 quart </refobj> </expression> </queryItem> <queryItem> <name locale="fr-be">tarte</name> <name locale="fr">tarte</name> <name locale="en-gb">pie</name> <expression> <refobj> fruit pie(fruit tart) </refobj> </expression> </queryItem> </querySubject> </namespace> </namespaces> </project>

Bonjour,

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
Sub test()
Set rs = LoadRsFromXML("C:\MyRepertoire\TestRd2.Xml")
MsgBox rs("namespace").Value.fields("querySubject").Value.fields("queryItem").Value.fields("expression").Value.fields("refobj").Value
rs.Close
End Sub
Public Function LoadRsFromXML(FullPath As String) As Object 
'**************************************************
'PURPOSE: LOAD A RECORDSET FROM AN XML FILE USING
'ADO 2.5.  THE XML FILE MUST HAVE BEEN SAVED
'USING SAVE METHOD OF RECORDSET OBJECT WITH adPersistXML AD
'SECOND PARAMETER
 
'PARAMETERS:
 'FullPath:     FullPath of XMLFile to load
 
'RETURNS:       Reference to a Recordset Object, or Nothing if
'               Function fails
'REQUIRES:      Installation of and reference to ADO 2.5
'EXAMPLE:       See Example for SaveRsToXML
 
'******************************************************
 
Dim oRs As Object, adoConn As Object
Set GetXMLDB = CreateObject("ADODB.Connection")
 
With GetXMLDB
.Open "Provider=MSDAOSP; Data Source=MSXML2.DSOControl;"
End With
Set oRs = CreateObject("ADODB.Recordset")
On Error Resume Next
Const adCmdFile = 256
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1
If Dir(FullPath) = "" Then Exit Function
oRs.Open FullPath, GetXMLDB
 
If Err.Number = 0 Then
    Set LoadRsFromXML = oRs
End If
 
End Function