Discussion :

[Sperafico]

Bonjour,

Je viens à vous en grand débutant que je suis pour m'aider un peu dans le traitement et la lecture de fichiers xml sous VB.NET

Voici dans un premier temps la structure de mon XML

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
<control>  
      <update>
            <NUMBER>0.0.22</NUMBER>
            <NAME>ORIGINAL</NAME>             			
      </update>
      <update>
            <NUMBER>0.0.23</NUMBER>
            <NAME>UPDATE 1</NAME>             			
      </update>
      <update>
            <NUMBER>0.0.24</NUMBER>
            <NAME>UPDATE 2</NAME>             			
      </update>
      <update>
            <NUMBER>0.0.26</NUMBER>
            <NAME>UPDATE 3</NAME>             			
      </update>
<control>

Le but de ma demande est d'afficher la valeur enfant <NAME> en définissant le <NUMBER>.

Pour cela, j'ai effectué la partie de code correspondant à cela.
Le code ci-dessous fonctionne bien lorsque le <NUMBER> existe mais je souhaiterais effectuer une autre action lorsque ce dernier n’existe pas car cela me fait buguer le script avec le message d'erreur suivant :
La référence d'objet n'est pas définie à une instance d'un objet.

Code :

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

1
2
3
4
5
6
7
8
Dim doc As New XmlDocument()
        doc.Load("version.xml")
        Dim node As XmlNode = doc.SelectSingleNode("control/update/NUMBER[. = '" & version(0) & "']").ParentNode
        If node IsNot Nothing Then
            If node.HasChildNodes Then
                Label2.Text = node.ChildNodes(1).InnerText
            End If
        End If

En vous remerciant d'avance pour votre aide.

[ctxnop]

Salut,
Il sauffit de tester le retour de SelectSingleNode :

Code :

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

1
2
3
4
5
6
Dim doc As New XmlDocument()
doc.Load("version.xml")
Dim node As XmlNode = doc.SelectSingleNode("control/update/NUMBER[. = '" & version(0) & "']"); ' On ne fait pas un .Truc sur un objet qui peut être nul sans avoir testé d'abord la nullité
If node IsNot Nothing AndAlso node.ParentNode IsNot Nothing AndAlso node.ParentNode.HashChildNodes Then
    Label2.Text = node.ChildNodes(1).InnerText
End If

Au passage, tu met .ChildNodes(1), ce qui sous-entends que tu es certains qu'il y a deux nœuds enfants et que tu prend la valeur du second, le problème risque de se reproduire à nouveau ici...

[Sperafico]

Bonjour,

Merci de ton retour concernant le problème rencontré.

J'ai pris note de ta remarque concernant le node.ChildNodes(1) et fait une modification pour tester sa nullité mais après cela il s'avère que malgré l’existence des deux nœuds enfants, je ne peux plus afficher ma valeur dans mon programme et depuis j'ai le retour suivant :

Une exception de première chance de type 'System.NullReferenceException' s'est produite

On dirait qu'il retourne toujours un résultat nul alors qu'il ne l'est pas, aurai-je oublier quelque chose ?

Code :

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

1
2
3
4
5
6
7
8
        Dim doc As New XmlDocument()
        doc.Load("version.xml")
        Dim node As XmlNode = doc.SelectSingleNode("control/update/NUMBER[. = '" & version(0) & "']")
        If node IsNot Nothing AndAlso node.ParentNode IsNot Nothing AndAlso node.ParentNode.HasChildNodes Then
        End If
        If node.ChildNodes(1) IsNot Nothing Then
            Label2.Text = node.ChildNodes(1).InnerText
        End If

Merci

[wallace1]

Bonsoir sperfico,

Il semble que ta conditionnelle soit fermée trop tôt, essayes ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
        Dim doc As New XmlDocument()
        doc.Load("version.xml")
        Dim node As XmlNode = doc.SelectSingleNode("control/update/NUMBER[. = '" & version(0) & "']")
        If node IsNot Nothing AndAlso node.HasChildNodes Then   
            If node.ChildNodes(1) IsNot Nothing Then
                 Label2.Text = node.ChildNodes(1).InnerText
            End If
        End If

[Sperafico]

Merci en effet elle est fermée un peu tôt mais malgré avoir corrigé cette erreur le problème reste similaire.

[ctxnop]

Rohhh... Tu t'obstines avec le même genre d'erreur...

Déjà, tu devrais pouvoir dire où se situe exactement l'erreur grâce au débogueur, et nous dire quelle est la variable nulle.

Ensuite, tu ne testes rien...
Est-ce que "version" est nul ou non ? qu'est-ce qui te certifies que tu as un élément dedans ? Es-tu certains que le xpath que tu constitue est valide ?

Tu testes que node.ChildNodes(1) est différent de nothing, mais si node.ChildNodes est égale à nothing ? Et s'il contient un seul élément, alors tu aura un dépassement d'index, provoquant une autre exception...

Par principe tu n'as jamais la garantie de rien, c'est pourquoi il faut tout tester, s'assurer de toutes les valeurs de toutes les variables, de tout ce qui est retourné, construit, modifié.

[Sperafico]

Alors les 2 lignes qui provoque le message d'avertissement "System.NullReferenceException" sont les suivants :

Code :

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

        Dim node As XmlNode = doc.SelectSingleNode("control/update/NUMBER[. = '" & version(0) & "']")

et

Code :

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

Label2.Text = node.ChildNodes(1).InnerText

Concernant tes remarques sur le "version", cette variable a toujours une valeur (défini un peu plus haut dans le code que je n'ai pas fourni) mais il est possible qu'elle ne le trouve pas le <NUMBER> dans les 2 nœuds enfants (qui au passage sont toujours par 2 dans mon XML).

Ce qui me chagrine, c’est que mon code du début me retournait bien la valeur <NAME> du deuxième noeud enfant et maintenant il ne me retourne plus rien alors que je n'ai rien touché dans mon XML.

Je m'égare peut être mais ne faudrait-il pas ajouter XmlNamespaceManager à mon SelectSingleNode ?

Etant un peu perdu, j'espère que vous saurez me donner quelques exemples concret pour résoudre ce problème.

Merci à vous