Discussion :

[Frip44]

Bonjour,

J'ai un fichier XML structuré de la manière suivante :


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 :

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

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,

[Invité]

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

[Frip44]

Voici le code au format texte si besoin

Code xml :

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
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>

[patricktoulon]

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é

[patricktoulon]

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

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 :

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
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>

[Invité]

Bonjour,

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
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