tof008
Messages postés695Date d'inscriptionjeudi 5 mai 2005StatutMembreDernière intervention 5 janvier 2010
-
27 nov. 2006 à 15:59
tof008
Messages postés695Date d'inscriptionjeudi 5 mai 2005StatutMembreDernière intervention 5 janvier 2010
-
28 nov. 2006 à 10:13
Bonjour!
Oui, je sais : "il y a pleins de sources qui traitent de ce sujet"! Certes!
Mais ces sources sont compliquées, et je cherche un peu plus simple!!!
Je voudrais savoir si quelqu'un saurait me trouver une alternative à ce morceau de code qui permet de retrouver les divers noeuds d'un fichier xml. Le gros défaut de ce code, c'est que si il y a 50 generations de neuds pour un noeud pere, je vais boucler à en devenir fou!!!
je voudrais pouvoir boucler 'dynamiquement'... :
Private Sub Command1_Click()
Dim fichier As New DOMDocument30
fichier.Load (App.Path & "" & "test.xml")
Dim t As String
Dim i As Integer
Dim j As Integer
Dim m As String
Dim k As Integer
i = 0
Dim princ
While i <> fichier.childNodes.length
princ = fichier.childNodes.Item(i).nodeName
MsgBox "pere = " + princ
While j <> fichier.childNodes.Item(i).childNodes.length
m = fichier.childNodes.Item(i).childNodes.Item(j).nodeName
MsgBox "fils = " + m
While k <> fichier.childNodes.Item(i).childNodes.Item(j).childNodes.length
n = fichier.childNodes.Item(i).childNodes.Item(j).childNodes.Item(k).nodeName
MsgBox "fils2 = " + n
'n = fichier.childNodes.Item(i).childNodes.Item(j).childNodes.nextNode
k = k + 1
Wend
tof008
Messages postés695Date d'inscriptionjeudi 5 mai 2005StatutMembreDernière intervention 5 janvier 201033 27 nov. 2006 à 18:57
En fait mon fichier xml n a aucune importance. Le but de ce code est de pouvoir faire ca avec n'importe quel fichier xml... Je voudrai que quelque soit le fichier xml passé en parametre, ma fonction me ressorte l'arborescence de ce fichier.
(Si la réponse vous convient, appuyez sur réponse acceptée...).