Discussion :

[thierry007]

Bonjour

voici la structure xml du fichier que je souhaite lire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
<?xml version="1.0" encoding="ISO-8859-1"?>
<table>
<record num="1">
<nom_eleve>BENZAID</nom_eleve>
<prenom_eleve>Mehdi</prenom_eleve>
</record>
<record num="2">
<nom_eleve>COLLIGNON</nom_eleve>
<prenom_eleve>Bryan</prenom_eleve>
</record>
</table>

Je me suis un peut inspiré du tuto mais il y a un stress . Quelqu'un peut m'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
  Dim XmlDoc As XmlDocument = New XmlDocument()
            XmlDoc.Load(TxtFichierXml.Text)
            Dim element As XmlNodeList
 
            element = XmlDoc.DocumentElement.GetElementsByTagName("record")
            Dim noeud, noeudEnf As XmlNode
 
 
            For Each noeud In element
                  For Each noeudEnf In noeud.ChildNodes
                        If noeudEnf.LocalName = "Nom_Eleve" Then
                              Nom = noeudEnf.InnerText
                        Else
                              If (noeudEnf.LocalName = "Prenom_Eleve") Then
                                    Prenom = noeudEnf.InnerText
                              End If
                        End If
                        MsgBox(Nom & " à " & Prenom)
                  Next
            Next

[tomlev]

Je me suis un peut inspiré du tuto

Quel tuto ? y en a plein...

mais il y a un stress

Mais encore ? on ne peut pas deviner ce qui te pose problème exactement...

Quelqu'un peut m'aider

Peut-être si tu donnes plus de détails sur ton problème, mais pour l'instant non

[thierry007]

Bonsoir,

Le tuto, c'est celui qui se trouve sur le site http://selkis.developpez.com/tutoriels/dotnet/Xmlpart1/

le stress bein , il ne m'affiche pas les données du fichier xml

[tomlev]

C'est parce que les noms des éléments que tu utilises dans le code ne sont pas les mêmes que dans le fichier XML. XML est sensible à la casse, donc si tu cherches "Nom_Eleve" alors que l'élément s'appelle "nom_eleve", tu ne vas pas le trouver...

Soit dit en passant, la technique que tu utilises est loin d'être la plus simple...

Tu pourrais utiliser la sérialisation XML, ou alors Linq to XML :

Code :

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

1
2
3
4
5
6
7
  Dim doc = XDocument.Load(TxtFichierXml.Text)
  Dim eleves =
      From rec in doc.Root.<record>
      Select New With { .Nom = rec.<nom_eleve>.Value, .Prenom = rec.<prenom_eleve>.Value }
  For Each e In eleves
    MsgBox(e.Nom & " à " & e.Prenom)
  Next

[thierry007]

Bonjour et Merci Tomleve pour ton suivit
Voici ce que j'était arrivé a faire, qui fonctionne
Il est vrais que ta methode est plus "lisible"

Merci encore

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
 
'Dim Nom, Prenom As String
            Dim XmlDoc As XmlDocument = New XmlDocument()
            Dim element As XmlNodeList
            Dim noeud As XmlNode
 
            XmlDoc.Load(TxtFichierXml.Text)
            element = XmlDoc.DocumentElement.GetElementsByTagName("record")
 
            For Each noeud In element
 
                  Nom = noeud.ChildNodes.ItemOf(0).InnerText
                  Prenom = noeud.ChildNodes.ItemOf(1).InnerText
 
            Next