Lecture de fichier XML (VB.NET) [Résolu]

Signaler
Messages postés
2
Date d'inscription
mardi 28 novembre 2006
Statut
Membre
Dernière intervention
4 novembre 2007
-
Messages postés
2
Date d'inscription
mardi 28 novembre 2006
Statut
Membre
Dernière intervention
4 novembre 2007
-
Bonjour,
Je suis en 2eme année de BTS et dans le cadre de PTI je souhaite develloper un logiciel ayant une petite base de donnée en XML codée sous le schéma suivant :

<JOUEURS>
    <JOUEUR>

       <NUM_IDENTIFIANT></NUM_IDENTIFIANT>

        <NOM></NOM>

      


      

       <COMMENTAIRE></COMMENTAIRE>

    </JOUEUR>
    <JOUEUR>

       <NUM_IDENTIFIANT></NUM_IDENTIFIANT>

        <NOM></NOM>

      


      

       <COMMENTAIRE></COMMENTAIRE>

    </JOUEUR>
</JOUEURS>

Dans ce programe de gestion, je désire enregistrer tout ces joueurs dans un tableau.
Je me suis doccumenté sur le web mais je commence a caller et fait apelle a votre aide.

Imports System.Xml

[...]

        'creation d'une nouvelle instance du membre xmldocument
        Dim XmlDoc As XmlDocument = New XmlDocument()
        XmlDoc.Load(Application.StartupPath & "\joueurs.XML")

        'listage de chaque joueur
        Dim element As XmlNodeList
        element = XmlDoc.DocumentElement.GetElementsByTagName("JOUEUR")

        Dim noeud, noeudEnf As XmlNode
        Dim i As Integer = 0

        For Each noeud In element
            For Each noeudEnf In noeud.ChildNodes
                If noeudEnf.LocalName = "NUM_IDENTIFIANT" Then
                   'MsgBox Pour tester l'entrée et la validitée du parametre , la bonne 'information aparait
                     MsgBox(noeudEnf.InnerText)
                    Joueur_Intern(i).Num_L = noeudEnf.InnerText
                ElseIf noeudEnf.LocalName = "NOM" Then
                     Joueur_Intern(i).Nom = noeudEnf.InnerText
                ElseIf noeudEnf.LocalName = "PRENOM" Then
                    Joueur_Intern(i).Prenom = noeudEnf.InnerText
                ElseIf noeudEnf.LocalName = "AGE" Then
                     Joueur_Intern(i).Nom = noeudEnf.InnerText
                ElseIf noeudEnf.LocalName = "COMMENTAIRE" Then
                     Joueur_Intern(i).Comm = noeudEnf.InnerText
                End If
            Next
            i = i + 1
        Next
    End Sub

Le probleme est que lors de l'execution du script ou j'obtiens un message d'erreur
 "La référence d'objet n'est pas définie à une instance d'un objet."

Je ne vois pas trop ou est l'erreur malgrés des efforts ... Je débute .
Je remercie par avance toute personne qui m'aiderait.

1 réponse

Messages postés
2
Date d'inscription
mardi 28 novembre 2006
Statut
Membre
Dernière intervention
4 novembre 2007

Un mistère de l'informatique sans rien modifier je n'ai plus de probleme a la compilation, merci quand meme pour ceux qui ont pris la peinne de me lire :)