Visual basic et lecture d'un fichier XML

Version imprimable

j'essaie désespérément de lire dans un fichier XML

le code VB :

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
 
    ' ----------------------------------------
    '    déclaration des variables locales
    ' ----------------------------------------
    Dim monDocumentXML As New DOMDocument
    Dim mesNoeuds As IXMLDOMNodeList
    Dim unElement As IXMLDOMNode
 
 
    ' chargement du document xml
    monDocumentXML.Load (principale_form.boite_dialogue.FileName)
    MsgBox (principale_form.boite_dialogue.FileName)
 
    ' noeuds eleve
    Set mesNoeuds = monDocumentXML.SelectSingleNode("NUM")
    MsgBox (mesNoeuds.Length)
 
    ' chargement de chaque eleve
    For Each unElement In mesNoeuds
    	' parcours la totalité d'eleve pour récupérer les valeurs
        MsgBox ("test")
        MsgBox (unElement.Text)
 
    Next

et la structure du fichier XML :

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
 
<?xml version='1.0' encoding='iso-8859-1'?>
<!DOCTYPE master SYSTEM 'etudiant.dtd'>
<master>
  <eleve>
     <NUN>1</NUN> 
     <Nom>mouton</Nom>
     <Prénom>moute</Prénom>
     <Age>2</Age>
     <Numéro></Numéro>
     <Suffixe></Suffixe>
     <TypeVoie></TypeVoie>
     <LibelléVoie></LibelléVoie>
     <Adresse></Adresse>
     <CodePostal></CodePostal>
     <NomCommune></NomCommune>
     <X></X>
     <Y></Y>
  </eleve>
  <eleve>
     <NUN>2</NUN>
     <Nom>brebis</Nom>
     <Prénom>moutone</Prénom>
     <Age>5</Age>
     <Numéro></Numéro>
     <Suffixe></Suffixe>
     <TypeVoie></TypeVoie>
     <LibelléVoie></LibelléVoie>
     <Adresse></Adresse>
     <CodePostal></CodePostal>
     <NomCommune></NomCommune>
     <X></X>
     <Y></Y>
  </eleve>
</master>

le problème c'est que l'exécution de ce code est vraiment bizarre. tout d'abord il n'y a aucune erreur et il exécute bien tout le code (j'ai mis différentes trace avec des msgbox) mais il n'exécute pas les msgbox ou il fait réfférence à des noeuds ( --> MsgBox (mesNoeuds.Length) et MsgBox (unElement.Text)) mais il rentre bien dans la boucle puisqu'il affiche le MsgBox ("test")

donc là je comprends vraiment pas pourquoi il me zappe une partie de mon code 8O
si vous avez une idée je suis preneur !

27/11/2007, 15h47
dsaunier

Bonjour,
d'apres ton xml, l'instruction monDocumentXML.SelectSingleNode("NUM") ne recuperera rien. A voir si c'est NUM ou NUN. De plus SelectSingleNode ne renverra qu'un noeud, ce n'est pas une liste, essaye plutot selectNodes("NUM")...
A+
dsr
27/11/2007, 15h50
ThierryAIM

http://khany.developpez.com/tutoriel/xml/
27/11/2007, 16h15
skerdreux

Citation:

Envoyé par dsaunier

Bonjour,
d'apres ton xml, l'instruction monDocumentXML.SelectSingleNode("NUM") ne recuperera rien. A voir si c'est NUM ou NUN. De plus SelectSingleNode ne renverra qu'un noeud, ce n'est pas une liste, essaye plutot selectNodes("NUM")...
A+
dsr

en effet le NUM à la place du NUN ça marche déjà mieux enfin
un msgbox(selectNodes("NUM").length) me retourne 0 donc il ne trouve pas de liste de noeud alors que si puisqu'avant avec le msgbox(selectNodes("NUN").length) il me trouvait pas de noeud donc il n'exécutait pas le code.

j'ai beau relire les tutoriels (merci pour le lien mais j'ai déjà lu ;)) je ne vois vraiment pas pourquoi il n'arrive pas me parcourir ce fichier.

je précise que je n'attends pas un code tout fait (qui de toute façon ne me serait pas utile car ce que je cherche à faire est plus compliqué mais je voudrais déjà comprendre pourquoi il n'effectue pas une opération qui "parrait" logique et bonne)

Bonjours, j'ai eu récemment l'occasion de me mettre à l'xml sous VB6.

voici le type de routine que j'utilise pour la lecture :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
' ----------------------------------------
    '    déclaration des variables locales
    ' ----------------------------------------
    Dim monDocumentXML As New MSXML2.DOMDocument
    Dim monElement As IXMLDOMElement
 
 
    ' chargement du document xml
    monDocumentXML.async = False  
    monDocumentXML.Load (principale_form.boite_dialogue.FileName)
    MsgBox (principale_form.boite_dialogue.FileName)
 
    ' chargement de chaque eleve
    For Each monElement In monDocumentXML.getElementsByTagName("eleve")
    	' parcours la totalité d'eleve pour récupérer les valeurs
        MsgBox (monElement.selectSingleNode("NUN").Text) 
        MsgBox (monElement.selectSingleNode("Nom").Text)                
    Next

Voilà j'espère que ce petit bout de code va t'aider car j'avais pas mal galéré aussi au début à comprend le fonctionnement des fichiers Xml sous VB6.

28/11/2007, 13h41
skerdreux

merci ça marche maintenant. j'avoue que je ne comprends pas trop pourquoi il ne voulait pas fonctionner avant (VB doit surement avoir une façon différente d'analyser le XML comparé à du javascript)