Discussion :

[kboo]

Bonjour,
j'ai un pb, j'ai fais au moins 5 fonctions qui permettent de trouver un "text" ou un "attibut" dans dans un ou des tags.. en fait je fait une fonction pour chaque profondeur, mais il n'y aurrai pas moyen de trouver ça direct de manière récusive? je sèche!
voici mon code:

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
Private Function cherche_text_return_char_2(TagName_1_ As String, TagName_2_ As String, text_ As String, num As Long) As String
' fonction renvoiant une chaine de caractères du fichier xml désigné par les trois balises données
Dim Indice As Integer
Dim taille As Integer
Dim myStr As String
Dim xmlElement As MSXML2.IXMLDOMElement
Dim textNode As MSXML2.IXMLDOMElement
Dim textNode_2 As MSXML2.IXMLDOMElement
Dim textNode_3 As MSXML2.IXMLDOMElement
 
Indice = 0


Set xmlElement = xmlDoc.documentElement
        For Each textNode In xmlElement.getElementsByTagName(TagName_1_)
            For Each textNode_2 In textNode.getElementsByTagName(TagName_2_)
                For Each textNode_3 In textNode.getElementsByTagName(text_)
                        If Indice = num Then
                            cherche_text_return_char_2 = textNode_3.Text
                            GoTo fin_cherche_text_return_char_2
                        End If
                    Indice = Indice + 1
                Next
            Next
        Next
fin_cherche_text_return_char_2:
  


End Function

si je veut un entier je refais la fonction... avec integer à la place, et si il y à trois enfants, encore une autre fonction... ya pas moyen?
merci d'avance

[jacma]

Bonjour

Il me semble que tu pourrais t'inspirer d'une fonction récursive permettant de parcourir les branche d'u Treeview. Une telle fonction est présentée et expliquée dans le praticiel "Le Treeview et vous" accessible en signature.

[SilkyRoad]

bonsoir

j'espere que cet exemple pourra t'aider

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
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Dim oDoc As DOMDocument
 
Private Sub CommandButton1_Click()
Set oDoc = New DOMDocument
oDoc.async = False
oDoc.Load "C:\Documents and Settings\michel\dossier\\monFichier.xml"
 
BoucleElements oDoc.documentElement
 
End Sub
 
 
Private Function BoucleElements(oElem As IXMLDOMNode)
Dim NdListe As IXMLDOMNodeList
Dim i As Long
 
Select Case oElem.nodeType
 
Case NODE_ELEMENT 'type Element
Debug.Print _
"NODE_ELEMENT : "; oElem.nodeName & " - " & extractionAttributs(oElem)
 
Case NODE_TEXT 'type texte
Debug.Print oElem.nodeValue
 
Case NODE_CDATA_SECTION 'type Cdata
Debug.Print "NODE_CDATA : " & oElem.nodeValue
 
Case Else
Debug.Print oElem.nodeType & " - " & oElem.nodeName
End Select
 
Set NdListe = oElem.childNodes 'boucle récursive pour les noeuds enfants
 
For i = 0 To NdListe.Length - 1
BoucleElements NdListe.Item(i)
Next i
End Function
 
 
 
Private Function extractionAttributs(x As IXMLDOMNode) As String
Dim Resultat As String
Dim i As Long
 
Resultat = ""
 
For i = 0 To x.Attributes.Length - 1 'boucle sur tous les attributs
Resultat = Resultat & x.Attributes.Item(i).nodeName & "='" & _
x.Attributes.Item(i).nodeValue & "' "
Next i
 
extractionAttributs = Resultat
 
End Function

bonne soiree
michel

[soazig]

Bonjour,
Pourquoi tu n'utilises pas XPath ce serait beaucoup plus générique.
Je me lance mais sans filet, je poste depuis Linux à la maison et je n'ai donc pas de VB sous la main, au boulot j'aurais VB mais pas internet donc soyez indulgents je fais tout de mémoire.

Code :

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

1
2
3
4
 
dim nodElement as MSXML2.IXMLDOMElement
Set nodElement =xmlDoc.documentElement.SelectSingleNode("monPremierNoeud/MonNoeudFils/MondeuxiemeNiveau")
if nodElement Is Nothing Then<div style="margin-left:40px">Debug.Print "On n'a pas réussi à trouver ce noeud"</div>Else<div style="margin-left:40px">Debug.Print "La valeur du noeud cherchée est :";nodElement.Text</div>End If

Et là la récursivité ce n'est pas toi qui la code c'est MSXML2.

Personnellement j'ai fait une fonction qui me renvoie le texte d'un noeud dont le XPath est passé en paramètre.
Et une autre qui fait la même chose mais converti en entier.
A+
Soazig