Recuperer les elements d'un XML

Version imprimable

Voir 40 message(s) de cette discussion en une page

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:

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:

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

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

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:

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

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

Code:

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

Quand je modifie mon XML de telle sorte :

Code:

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 :oops:

08/01/2009, 21h45
zavier666

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.
09/01/2009, 08h36
leSeb

Citation:

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
09/01/2009, 10h17
Ya7yaKech

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'.

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

Code:

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

Code:

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:

For Each noeudEnfant In noeudParent.ChildNodes

je pense que ma declaration n'est pas convenable

Code:

Dim mynoeudParent As XmlNode = XmlDoc.ParentNode

car quand je la remplace par :

Code:

Dim mynoeudParent As XmlNode = XmlDoc.FirstChild

ou

Code:

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

12/01/2009, 01h09
tomlev

XmlDocument.ParentNode

Citation:

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

Code:

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

12/01/2009, 16h40
tomlev
Citation:

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:

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
12/01/2009, 16h48
Ya7yaKech

Non au contraire ce qui m'intersesse c'est juste les elements : id , price, vendor ..
je veux pas afficher les valeurs
12/01/2009, 17h14
tomlev
eh ben dans ce cas tu n'as qu'à ignorer les nœuds qui ne sont pas des éléments...
Code:

1 2 3 If noeudEnfant.NodeType = XmlNodeType.Element Then MsgBox(noeudEnfant.Name) End If
12/01/2009, 17h55
Ya7yaKech

oui c'est ce ke j'ai fais merci beaucoup
12/01/2009, 20h26
tomlev

pense au bouton :resolu: si c'est OK...

ok je vais le faire je m'excuse de l'avoir oublier :oops:
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:

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>

Tu peux utiliser XPath :

Code:

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

13/01/2009, 12h02
SaumonAgile

Recherche du côté de XPath.
13/01/2009, 12h19
Ya7yaKech

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 :oops:

en tout les cas merci vous m'avez vraiment aider

Voir 40 message(s) de cette discussion en une page