Discussion :

[Delphi-ne]

Je bloque sur un problème de gestion d'arbre XML, plus précisémment pour retrouver un noeud précis avec SelectSingleNode.
J'utilise en Référence Microsoft XML v6

L'arbre est le suivant :

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
 
<?xml version="1.0" encoding="UTF-8"?>
<structure>
	<parameters/>
	<schemasources>
		<namespaces/>
		<schemasources>
			<xsdschemasource>
				<xmltablesupport/>
				<textstateicons/>
			</xsdschemasource>
		</schemasources>
	</schemasources>
	<modules/>
	<globalstyles>
		<rule>
			<media>
				<media value="all"/>
			</media>
		</rule>
	</globalstyles>
</structure>

Avec ce code le résultat est toujours Nothing et pourtant le noeud existe bien.

Code :

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

1
2
3
4
5
6
7
8
9
Dim LO_XmlSPS As New DOMDocument
Dim LO_Noeud As IXMLDOMNode
   LO_XmlSPS.Load (ThisWorkbook.Path + "\ModelesXSLT\StyleLettre.xml")
   Set LO_Noeud = LO_XmlSPS.selectSingleNode("//Structure")
   If LO_Noeud Is Nothing Then
      MsgBox ("noeud non trouvé")
   Else
      MsgBox (LO_Noeud.Text)
   End If

[SfJ5Rpw8]

" l'XML " est sensible à la case ..:

Code :

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

LO_XmlSPS.selectSingleNode("//structure")

et pas //Structure

[Delphi-ne]

C'est pourtant vrai !
J'ai cherché des heures. Merci beaucoup