Discussion :

[koyot3]

Bonjour à tous,

J'ai un léger soucis avec la lecture de mon fichier xml.
J'arrive à l'ouvrir, lire chaque noeud, ... seulement certains de mes noeuds ont des attributs variables...

Code :

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

1
2
<MonNoeud Nom="N1" X="blabla">
<MonNoeud Nom="N2">

Je n'arrive pas à tester l'existence du noeud car s'il existe, j'ai besoin de récupérer la valeur...
J'utilise

Code :

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

variable.Attributes("X").InnerText

pour lire le texte mais j'aimerais savoir à l'avance si je dois lire l'attribut ou non...

Quelqu'un aurait-il une idée ?

Merci d'avance

@+

[mactwist69]

Bonjour, je suis déjà tomber sur ce cas. car certains attribut ou elements étaient parfois facultatif. J'ai régler le problème ça en naviguant grâce à ca:

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
21
22
23
24
25
26
27
28
29
30
31
32
             'INITIALISATION DU NAVIGATEUR
            Dim xpathDoc As XPathDocument
            xpathDoc = New XPathDocument(chemin)
 
            Dim xmlNav As XPathNavigator
            xmlNav = xpathDoc.CreateNavigator()
 
            Dim xmlNI As XPathNodeIterator
            Dim obj As Object
 
            'INFORMATIONS
            xmlNI = xmlNav.Select("/Noeud1t/@*")
            Dim maClasse As New Classe
 
            While (xmlNI.MoveNext())
 
                Select Case xmlNI.Current.Name
 
                     Case "MonAttribut1"
                        obj = xmlNI.Current.Value
                        If IsNumeric(obj) Then
                            MaClasse.MonNumero = obj
                        End If
 
                     Case "MonAttribut2"
                        obj = xmlNI.Current.Value
                        If IsNumeric(obj) Then
                            MaClasse.MonNumero2 = obj
                        End If
 
                End Select
            End While

le fait de mettre : @*, dans le navigateur, il va naviguer parmis tous les attribut. Si tu cherche des élément allant de 1 a n, ne rien mettre:

Code :

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

xmlNI = xmlNav.Select("/Noeud1t")

[maxkun]

Bonjour, j'aimerai également tester l'existence des attributs, j'ai donc essayer ton code mais j'ai un petit souci (je suis débutant en vb) :

Code :

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

Dim maClasse As New Classe

Dans cette ligne la classe Classe n'existe pas, c'est a moi de la créer?
Si oui je dois mettre quoi dedans?

Cordialement maxkun