Recuperer les elements d'un XML

**Ya7yaKech** · 08/01/2009, 13h56

Salut
je suis pas trop doué pour ce qui concerne la manipulation des fichiers XML en vb.net
bref
mon probleme le voila:
je veux recuperer les elements d'un fichier XML :

Exemple:

Code XML :

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

1
2
3
4
5
6
7
8
9
10
11
<products>
          <product>
                  <id>1</id>
                  <price>50</price>
                  <vendor>text</vendor>
          </product>
 
          <order>
                  <id>10</id>
          </order>
</products>

1-je veux recuperer l'element racine
2-je veux recuperer le(s) element(s) du noeud product (id, price, vendor)
3-je veux recuperer le(s) element (s) du noeud order(id)

bon j'ai pu faire un bout de code qui marche pas mal; mais le probleme dans ce code c'est que je dois connaitre le nombre des elements que j'ai

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
 ' creation d'une nouvelle instance du membre xmldocument
        Dim XmlDoc As XmlDocument = New XmlDocument()
        'Chargement du fichier XMl
        XmlDoc.Load("chemin fichier xml")
        'Declaration d'une liste de Noeud
        Dim xmlnodeList As XmlNodeList
 
        xmlnodeList = XmlDoc.ChildNodes
 
        MsgBox(xmlnodeList.ItemOf(0).ChildNodes.ItemOf(0).Name)
        MsgBox(xmlnodeList.ItemOf(0).ChildNodes.ItemOf(1).Name)
 
        MsgBox(xmlnodeList.ItemOf(0).ChildNodes.ItemOf(0).ChildNodes.ItemOf(0).Name)
        MsgBox(xmlnodeList.ItemOf(0).ChildNodes.ItemOf(0).ChildNodes.ItemOf(1).Name)
        MsgBox(xmlnodeList.ItemOf(0).ChildNodes.ItemOf(0).ChildNodes.ItemOf(2).Name)

est ce qu'il existe un moyen pour regler ce prb ?
Merci d'avance

**leSeb** · 08/01/2009, 17h04

Déjà première chose tu peux utiliser une boucle pour parcourir les éléments d'un même niveau.

Code :

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

1
2
3
4
 
For Each element In XmlDoc.ChildNodes
   MsgBox(element.Name)
Next

Maintenant pour progresser en profondeur dans ton arborescence, utilise la récursivité.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Sub ParcourirElement(ByVal element as XmlElement)
   Dim elem As XmlElement
 
   For Each elem In element.ChildNodes
      MsgBox(elem.Name)
      If elem.ChildNodes.Count > 0 Then
         ParcourirElement(elem)
      End If
   Next
End Sub

**Ya7yaKech** · 08/01/2009, 21h31

Tout dabord je vous remercie de m'avoir repondu ce qui n'est pas le cas dans les autres Forum.

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
33
34
35
36
37
38
39
40
41
42
43
 
' creation d'une nouvelle instance du membre xmldocument
        Dim XmlDoc As XmlDocument = New XmlDocument()
 
        'Chargement du fichier XMl
        XmlDoc.Load(fileName)
 
        'Declaration d'une liste de Noeud
        Dim xmlnodeList As XmlNodeList
 
 
        'Parcouri le fichier XML et afficher l'lement Racine
        xmlnodeList = XmlDoc.ChildNodes
        For Each element In XmlDoc.ChildNodes
            MsgBox(element.Name)
        Next
 
 
 
 'Parcouri le fichier XML et afficher les autres elements
        Dim myxmlelement As XmlElement = XmlDoc.DocumentElement
 
        ParcourirElement(myxmlelement)
 
 
 
'La fonction
 
 
Public Sub ParcourirElement(ByVal element As XmlElement)
 
        Try
            Dim elem As XmlElement
            For Each elem In element.ChildNodes
                MsgBox(elem.Name)
                If elem.ChildNodes.Count > 0 Then
                    ParcourirElement(elem)
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Bon voila le code quand j'execute la 1ere partie marche impek j'arrive a afficher l'lement racine mais pour le reste j'arrive a afficher les autres element par la fonction mais ya une exception quii se genere entre chaque affichage d'element

je sais pas trop pourquoi!!
Merci d'avance

**Ya7yaKech** · 08/01/2009, 21h35

Quand je modifie mon XML de telle sorte :

Code XML :

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

1
2
3
4
5
6
7
8
9
10
11
<products>
          <product>
                  <id/>
                  <price/>
                  <vendor/>
          </product>
 
          <order>
                  <id/>
          </order>
</products>

j'obtiens tous les champs sans aucun probleme; si ca peut vous etre util

**zavier666** · 08/01/2009, 21h45

Tu trouveras moulte tuto (sur ce site entre autres) sur comment parser un fichier XML,

les deux grandes instructions sont

x = xmlDoc.Childnodes(y).childNodes(z)....childNodes(n).count => connaitre le nombre de données qu'il y a sur un niveau

texte = xmlDoc.childNodes(0).childNodes(3).childNodes(1).text => récupérer la valeur

après, pour gagner du temps pour l'ajout d'un jeu de données, j'ai une technique, je crée un jeu modèle et j'utilise cloneNode pour le dupliquer et je viens écrire après la valeur qui m'interresse.

**leSeb** · 09/01/2009, 08h36

Envoyé par Ya7yaKech

Bon voila le code quand j'execute la 1ere partie marche impek j'arrive a afficher l'lement racine mais pour le reste j'arrive a afficher les autres element par la fonction mais ya une exception quii se genere entre chaque affichage d'element

je sais pas trop pourquoi!!
Merci d'avance

Quelle est l'exception levée (type + message) ?

Merci

**Ya7yaKech** · 09/01/2009, 10h17

titre :L'exception InvalidCastException n'a pas été gérée

Impossible d'effectuer un cast d'un objet de type 'System.Xml.XmlText' en type 'System.Xml.XmlElement'.

**leSeb** · 09/01/2009, 12h22

Je me suis trompé. Il ne faut pas utiliser XmlElement mais XmlNode

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Sub ParcourirElement(ByVal noeudParent as XmlNode)
   Dim noeudEnfant As XmlNode
 
   For Each noeudEnfant In noeudParent.ChildNodes
      MsgBox(noeudEnfant.Name)
      If noeudEnfant.ChildNodes.Count > 0 Then
         ParcourirElement(noeudEnfant)
      End If
   Next
End Sub

**Ya7yaKech** · 09/01/2009, 13h19

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
Dim fileName As String = "Fichier XML"
 
    Public Sub ParcourirElement(ByVal noeudParent As XmlNode)
        Try
            Dim noeudEnfant As XmlNode
            For Each noeudEnfant In noeudParent.ChildNodes
                MsgBox(noeudEnfant.Name)
                If noeudEnfant.ChildNodes.Count > 0 Then
                    ParcourirElement(noeudEnfant)
                End If
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' creation d'une nouvelle instance du membre xmldocument
        Dim XmlDoc As XmlDocument = New XmlDocument()
        'Chargement du fichier XMl
        XmlDoc.Load(fileName)
 
        Dim mynoeudParent As XmlNode = XmlDoc.ParentNode
        ParcourirElement(mynoeudParent)
    End Sub

Bon voila le code que j'ai fais (grace a toi bien sur)
mais il affiche une exception :
"La référence d'objet n'est pas définie à une instance d'un objet."

tout en selectionnant en jaune la ligne

Code :

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

For Each noeudEnfant In noeudParent.ChildNodes

je pense que ma declaration n'est pas convenable

Code :

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

    Dim mynoeudParent As XmlNode = XmlDoc.ParentNode

car quand je la remplace par :

Code :

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

Dim mynoeudParent As XmlNode = XmlDoc.FirstChild

ou

Code :

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

Dim mynoeudParent As XmlNode = XmlDoc.LastChild

apparament ca marche.(je sais pas trop ou est la différence; etsi je l'applique sur un autre fichier est ce que ce marchera !!)

qu'est ce que vous en pensé?

Merci

**tomlev** · 12/01/2009, 01h09

XmlDocument.ParentNode

Envoyé par MSDN

Retourne toujours une référence null (Nothing en Visual Basic).

Ce qui est un peu normal, vu qu'un XmlDocument ne peut pas avoir de noeud parent...

Dans la méthode Button1_Click, utilise XmlDoc.DocumentElement à la place de XmlDoc.ParentNode

**Ya7yaKech** · 12/01/2009, 16h35

Code vb :

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

1
2
3
4
5
6
7
8
9
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' creation d'une nouvelle instance du membre xmldocument
        Dim XmlDoc As XmlDocument = New XmlDocument()
        'Chargement du fichier XMl
        XmlDoc.Load(fileName)
 
        Dim mynoeudParent As XmlNode = XmlDoc.DocumentElement
        ParcourirElement(mynoeudParent)
    End Sub

il me donne le resultat mais en plus il me donne "#text"
je pense qu'il affiche aussi les valeurs des elements car quand je donne un xml avec des champs vide il affiche le resultat correctement

est ce qu'il existe une solution pour que le programme ignore la valeur du champs et qu'il affiche tout simplement l'lement?

merci

**tomlev** · 12/01/2009, 16h40

Envoyé par Ya7yaKech

il me donne le resultat mais en plus il me donne "#text"

C'est parce que un morceau de texte dans un element (par exemple "50" dans "<price>50</price>") est aussi considéré comme un noeud, dont le nom est "#text". Si tu veux afficher sa valeur, il faut afficher la Value du XmlNode :

Code :

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

1
2
3
4
5
If noeudEnfant.NodeType = XmlNodeType.Element Then
    MsgBox(noeudEnfant.Name)
Else If noeudEnfant.NodeType = XmlNodeType.Text Then
    MsgBox(noeudEnfant.Value)
End If

**Ya7yaKech** · 12/01/2009, 16h48

Non au contraire ce qui m'intersesse c'est juste les elements : id , price, vendor ..
je veux pas afficher les valeurs

**tomlev** · 12/01/2009, 17h14

eh ben dans ce cas tu n'as qu'à ignorer les nœuds qui ne sont pas des éléments...

Code :

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

1
2
3
If noeudEnfant.NodeType = XmlNodeType.Element Then
    MsgBox(noeudEnfant.Name)
End If

**Ya7yaKech** · 12/01/2009, 17h55

oui c'est ce ke j'ai fais merci beaucoup

**tomlev** · 12/01/2009, 20h26

pense au bouton

si c'est OK...

**Ya7yaKech** · 13/01/2009, 11h26

ok je vais le faire je m'excuse de l'avoir oublier

mais juste une question
supposons que je connais le nom d'un champs par exemple "Id" mais je ne cionnais pas sa position par rapport au fichier XML et que je veux chercher sa valeur.

c'est possible ??
a noter qu'on peut avoir plusieur id comme ceci

Code XML :

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
<Articles>
<Article>
 
<id>1</id>
<name>text</name>
 
</Article>
 
<Article>
 
<id>2</id>
<name>text</name>
 
</Article>
 
<Article>
 
<id>1</id>
<name>text</name>
 
</Article>
</Articles>

**tomlev** · 13/01/2009, 12h00

Tu peux utiliser XPath :

Code :

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

1
2
3
4
5
6
7
Dim document As XPathDocument = New XPathDocument("articles.xml")
Dim navigator As XPathNavigator = document.CreateNavigator()
Dim nodes As XPathNodeIterator = navigator.Select("/Articles/Article/Id")
 
While nodes.MoveNext()
    MsgBox(nodes.Current.Value)
End While

**SaumonAgile** · 13/01/2009, 12h02

Recherche du côté de XPath.

**Ya7yaKech** · 13/01/2009, 12h19

Merciiiiiii beaucouppppppppp

ofet si je signale le probleme comme resolu
et si je trouve un probleme relatif au meme sujet est ce que je dois creer une autre discussion ou juste le poser la?

desolé mais je suis nouveau

en tout les cas merci vous m'avez vraiment aider

Recuperer les elements d'un XML

Windows Forms

Discussions similaires

Partager

Partager