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

Ne0PHenIXXX 2 Messages postés mardi 28 novembre 2006Date d'inscription 4 novembre 2007 Dernière intervention - 3 nov. 2007 à 22:17 - Dernière réponse : Ne0PHenIXXX 2 Messages postés mardi 28 novembre 2006Date d'inscription 4 novembre 2007 Dernière intervention
- 4 nov. 2007 à 13:38
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.
Afficher la suite 

Votre réponse

1 réponse

Meilleure réponse
Ne0PHenIXXX 2 Messages postés mardi 28 novembre 2006Date d'inscription 4 novembre 2007 Dernière intervention - 4 nov. 2007 à 13:38
3
Merci
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 :)  

Merci Ne0PHenIXXX 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 75 internautes ce mois-ci

Commenter la réponse de Ne0PHenIXXX

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.