lecture d'un XML : chargement d'un sous noeud

Version imprimable

bonjour

j'ai un fichier xml 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
23
24
25
26
27
28
29
30
31
32
33
34
<SUGGEST>
  <ENTREPRISE>
    <NOM_ENTREPRISE>Sarl Num1</NOM_ENTREPRISE>
    <ADRESSE>
    </ADRESSE>
    <CODE_POSTAL>
    </CODE_POSTAL>
    <VILLE>
    </VILLE>
    <TELEPHONE>
    </TELEPHONE>
    <FAX>
    </FAX>
    <COURRIEL>alexandreparrein@gmail.com</COURRIEL>
    <DISTRIBUTEUR>
    </DISTRIBUTEUR>
    <LST_EPI>
      <EPI>
        <CODE>UNYC-0001</CODE>
        <TYPE>ABSORBEUR</TYPE>
        <NORME>
        </NORME>
        <MARQUE>UNYC</MARQUE>
        <MODELE>1</MODELE>
        <NUM_MARQUAGE>0001</NUM_MARQUAGE>
        <ANNEE>
        </ANNEE>
        <DUREE_DE_VIE>5</DUREE_DE_VIE>
        <RESULTAT>MAINTIENT EN SERVICE</RESULTAT>
        <MISE_EN_SERVICE>11/03/2010</MISE_EN_SERVICE>
      </EPI>
</LST_EPI>
  </ENTREPRISE>
</SUGGEST>

j'aimerais charger un combobox avec la liste des code dans le noeud EPI en fonction d'un nom d'entreprise

pour cela j'utilise ca

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 XmlDoc As XmlDocument = New XmlDocument()
        XmlDoc.Load(Application.StartupPath & "\suggest.XML")
        Dim element, element2 As XmlNodeList
        element = XmlDoc.DocumentElement.GetElementsByTagName("ENTREPRISE")
        Dim noeud, noeudEnf As XmlNode
        Dim nom As String
        For Each noeud In element
            For Each noeudEnf In noeud.ChildNodes
                If noeudEnf.LocalName = "NOM_ENTREPRISE" Then
                    nom = noeudEnf.InnerText
                    'txt_entreprise.AutoCompleteCustomSource.Add(nom)
                    'MsgBox(type)
                    element2 = XmlDoc.DocumentElement.GetElementsByTagName("LST_EPI")
                    Dim noeudEPI, noeudEPIenf As XmlNode
                    For Each noeudEPI In element
                        For Each noeudEPIenf In noeudEPI.ChildNodes
                            If noeudEPIenf.LocalName = "CODE" Then
                                cb_listeEPI.Items.Add(noeudEPIenf.InnerText)
                            End If
                        Next
                    Next
                End If
 
            Next
        Next

mais rien ne ce charge

a votre avis pourquoi ?

21/01/2011, 15h56
yonpo
Salut,

Je ne touche pas souvent au XML mais est ce que
Code:

1 2 3 For Each noeudEPI In element ...
ne serait pas plutôt
Code:

1 2 3 For Each noeudEPI In element2 ...
A voir...

en faite je me suis tromper ce n'est pas des élément dans le nœud

mais des nœud dans des nœud

donc ca donnerai plutot ca

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 XmlDoc As XmlDocument = New XmlDocument()
        XmlDoc.Load(Application.StartupPath & "\suggest.XML")
        Dim element As XmlNodeList
        element = XmlDoc.DocumentElement.GetElementsByTagName("ENTREPRISE")
        Dim noeud, noeudEnf, noeudEPI As XmlNode
        Dim nom As String = Frm_main.txt_entreprise.Text
        For Each noeud In element
            Dim ok As Integer = 0
            For Each noeudEnf In noeud.ChildNodes
                If noeudEnf.LocalName = "NOM_ENTREPRISE" And noeudEnf.InnerText = nom Then
                    ok = 1
                End If
                If ok = 1 And noeudEnf.LocalName = "LST_EPI" Then
                    'MsgBox(noeudEnf.FirstChild.InnerText)
                    For Each noeudEPI In noeudEnf.ChildNodes
                        If noeudEPI.LocalName = "CODE" Then
                            cb_listeEPI.Items.Add(noeudEPI.InnerText)
                        End If
                    Next
 
 
                End If
 
            Next
        Next

quand je fait

Code:

MsgBox(noeudEnf.FirstChild.InnerText)

ca m'affiche tout le premier nœud

mais le for each ne tourne pas ><

21/01/2011, 16h22
yonpo

D'après l'organisation du fichier xml, il faudra plutôt chercher les enfants de EPI et non pas les enfants de LST_EPI (EPI est l'enfant de LST_EPI).

Sinon as-tu débogé pas à pas pour voir ce que tu as dans chaque boucle?
Je te l'accorde, plus il y a de noeud plus c'est prise de tête :aie:
21/01/2011, 16h52
alex61

oui j'ai debogué pas a pas
et enfaite il reste a LST_EPI et ne descend pas :mouarf:

c'est la petite blague avant le week end

ah ya du progrès maintenat ca m'affiche des code EPI mais ca me les affiche tous ...

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
        Dim XmlDoc As XmlDocument = New XmlDocument()
        XmlDoc.Load(Application.StartupPath & "\suggest.XML")
        Dim element, element2 As XmlNodeList
        element = XmlDoc.DocumentElement.GetElementsByTagName("ENTREPRISE")
        element2 = XmlDoc.DocumentElement.GetElementsByTagName("EPI")
        Dim noeud, noeudEnf, noeudEPI, noeudEPIenf As XmlNode
        Dim nom As String = Frm_main.txt_entreprise.Text
        For Each noeud In element
            Dim ok As Integer = 0
            For Each noeudEnf In noeud.ChildNodes
 
                If noeudEnf.LocalName = "NOM_ENTREPRISE" And noeudEnf.InnerText = nom Then
                    ok = 1
 
                End If
                If ((ok = 1) And (noeudEnf.LocalName = "LST_EPI") And (noeudEnf.HasChildNodes = True)) Then
                    'MsgBox(noeudEnf.LocalName)
                    'MsgBox(noeudEnf.FirstChild.InnerText)
 
                    For Each noeudEPI In element2
                        'MsgBox(noeudEnf.HasChildNodes)
                        For Each noeudEPIenf In noeudEPI.ChildNodes
 
                            If (noeudEPIenf.LocalName = "CODE") Then
                                cb_listeEPI.Items.Add(noeudEPIenf.InnerText)
                            End If
                        Next
                    Next
                End If
 
            Next
        Next

recursion,o recursion

bonjour alex
la structure xml est un arbre,et une arborescence est recursive eh oui.
Avec un fichier plus imbrique on ne s'en sortirait jamais avec des methodes semblables.

voici comment il faut faire cette recherche,ici le bout de code:

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
 
 
Imports System.Xml
 
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim XmlDoc As XmlDocument = New XmlDocument()
        XmlDoc.Load(Application.StartupPath & "\suggest2.XML")
 
        For Each noeud As XmlNode In XmlDoc.ChildNodes
            For Each noeudEnf As XmlNode In noeud.ChildNodes
                If noeudEnf.LocalName = "ENTREPRISE" Then
                    'appel recursif aux enfants des enfants
                    Call Me.RecursifChercheNode(noeudEnf)
                End If
            Next
        Next
    End Sub
    'REMERCIE RECURSIF
    Private Sub RecursifChercheNode(ByVal xNoeud As Xml.XmlNode)
        Dim strNom As String
        For Each noeud As XmlNode In xNoeud
            If noeud.LocalName <> "EPI" Then
                Call RecursifChercheNode(noeud)
            Else
                'liste le contenu du champ Code
                For Each noeudEnf As XmlNode In noeud.ChildNodes
                    strNom = noeudEnf.InnerText
                    cb_listeEPI.Items.Add(strNom)
                    cb_listeEPI.DisplayMember = strNom
                Next
 
            End If
        Next
    End Sub

bon code...............

24/01/2011, 09h36
alex61

ca donne a peu prés le même résultat que moi

c'est a dire que ca me donne tout ce que contient tous les sous nœud
alors que moi je ne veut que ce que contient le sous nœud d'un nœud spécifique .

J'AI TROUVERRRRRRRRRRRRRRRRRRRR

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
        Dim XmlDoc As XmlDocument = New XmlDocument()
        XmlDoc.Load(Application.StartupPath & "\suggest.XML")
        Dim element As XmlNodeList
        element = XmlDoc.DocumentElement.GetElementsByTagName("ENTREPRISE")
 
        Dim noeud, noeudEnf, noeudEPI, noeudEPIenf As XmlNode
        Dim nom As String = Frm_main.txt_entreprise.Text
        For Each noeud In element
            Dim ok As Integer = 0
            For Each noeudEnf In noeud.ChildNodes
 
                If noeudEnf.LocalName = "NOM_ENTREPRISE" And noeudEnf.InnerText = nom Then
                    ok = 1
                Else
                    'ok = 0
                End If
                If ((ok = 1) And (noeudEnf.LocalName = "LST_EPI")) Then
                    'MsgBox(noeudEnf.LocalName)
                    'MsgBox(noeudEnf.FirstChild.InnerText)
 
                    For Each noeudEPI In noeudEnf.ChildNodes
                        'MsgBox(noeudEPI.InnerText)
 
                        For Each noeudEPIenf In noeudEPI.ChildNodes
 
                            If (noeudEPIenf.LocalName = "CODE") Then
                                cb_listeEPI.Items.Add(noeudEPIenf.InnerText)
                            End If
                        Next
                    Next
                End If
 
            Next
        Next

a mon avis "DocumentElement" devait scanner tout le fichier a la recherche de la balise et c'est pour ca que ca ne me donner pas le résultat souhaiter

merci de votre aide

cordialement

Bonjour,
il y a aussi les "xPath" (normalement très rapide en recherche) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
        '*** On récupère le nom de l'entreprise ciblée.
        Dim entreprise As String = "Sarl Num1"
        Dim XmlDoc As XmlDocument = New XmlDocument()
        XmlDoc.Load(Application.StartupPath & "\suggest.XML") 'Chemin à adapter)
 
        '*** Utilisation d'un "xPath", pour atteindre la société concernée.
        Dim xPathEntreprise As String = "/SUGGEST/ENTREPRISE/NOM_ENTREPRISE['" & entreprise & "']"
        Dim xmlNodeEmtreprise As XmlNode = XmlDoc.SelectSingleNode(xPathEntreprise)
 
        '*** On recherche son frère "LST_EPI", en les parcourant.
        If Not xmlNodeEmtreprise Is Nothing Then
            Dim xmlElemEntrepriseEpi As XmlNode = xmlNodeEmtreprise.NextSibling
            While Not xmlElemEntrepriseEpi.Name = "LST_EPI"
                xmlElemEntrepriseEpi = xmlElemEntrepriseEpi.NextSibling
            End While
 
            '*** une fois trouvé, on récupère les enfants de son enfant "EPI"
            For Each xmlChild As XmlNode In xmlElemEntrepriseEpi.FirstChild
                MessageBox.Show(xmlChild.InnerText)
            Next
 
        End If

24/01/2011, 14h16
alex61

je connait le principe mais je ne l'ai jamais utilisé

j'y penserai la prochaine fois que je récupèrerai des donné dans un document XML

rechercher liste des valeurs d'un enreg. specifique

bonjour alex
d'abord j'insiste sur une chose c'est la recursion que tu n'as pas bien saisi dans mon code qui n'est "exactement" pas le meme que le tiens.
le code que je t'ai donne est totalement different du tiens,parce que ton code marche dans une imbrication de niveau 2 seulement 2(ENTREPRISE->EPI). celui que je t'ai donne peut marcher dans -N-niveau(ENTREPRISE->EPI->CODE->SOUSCODE1->SOUSCODE->2 etc...).
ta formulation etait mal faite et un probleme mal pose ne sera jamais resolu.

voici le code mon cher qui donne la liste des codes EPI dans suggest2.xml:

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
 
Imports System.Xml
 
Public Class Form1
 Private Sub btnSearchRecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearchRecord.Click
        Dim XmlDoc As XmlDocument = New XmlDocument()
        XmlDoc.Load(Application.StartupPath & "\suggest2.XML")
 
        For Each noeud As XmlNode In XmlDoc.ChildNodes
            For Each noeudEnf As XmlNode In noeud.ChildNodes
                If noeudEnf.LocalName = "ENTREPRISE" Then
                    'appel recursif aux enfants des enfants
                    Call Me.RecursifChercheNodeRecord(noeudEnf)
                End If
            Next
        Next
    End Sub
' INGRAT REMERCIE RECURSIF POUR UNE DEUXIEME FOIS  
' LISTE LES VALEURS D'UN RECORD
    Private Sub RecursifChercheNodeRecord(ByVal xNoeud As Xml.XmlNode)
        Dim strNom As String = ""
        For Each noeud As XmlNode In xNoeud
            If noeud.LocalName <> "EPI" Then
                Call RecursifChercheNodeRecord(noeud)
            Else
                'liste les valeurs d'un enreg. specifique
                For Each noeudEnf As XmlNode In noeud.ChildNodes
                    strNom = noeudEnf.InnerText
                    If noeudEnf.OuterXml.Contains("CODE") Then
                        cbo_ListeCodeEPI.Items.Add(strNom)
                        cbo_ListeCodeEPI.DisplayMember = strNom
                    End If
                Next
            End If
        Next
    End Sub

A propos bien que j'ai sejourne en france durant mes etudes a Paris,Lille et à Nantes (douce france...climat)......je n'ai jamais reussi à savoir ou se trouve Caen(en normandie) et comment on prononce Caen...joyeusete de l'orthographe francaise qui abuse des lettres.....

bon code.....

24/01/2011, 21h58
alex61

oui j'ai bien saisi l'histoire de la récursivité ( même si je n'ai pas réussi a la faire fonctionner correctement )

dans mon cas ca ne descendra pas a plus de deux niveau , ce sont des fichier relativement simple

ps : oui Caen est en basse-normandie prés des cote de la manche
et ca se prononce comme Quand ^^

cordialement

Bonsoir,
MABROUKI, dans le principe tu as raison, mais Alex61, si j'ai bien compris désire uniquement le code de l'entreprise choisie.
Après xPath, je me suis attardé sur Linq to Xml (que je ne connais pas bien) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
        '*** On récupère le nom de l'entreprise ciblée.
        Dim entreprise As String = "Sarl Num3"
        Dim data As XDocument = XDocument.Load(Application.StartupPath & "\suggest.XML")
 
        ' LINQ to XML query : assemble dans une liste ordonnée, les XElements choisis se trouvant 
        '     dans chaque noeud parent et quelque soit leur niveau dans ce noeud parent. 
        '     Ici, les noms des entreprises et leur code respectif.
        Dim list1 As IEnumerable(Of XElement) = _
            data...<NOM_ENTREPRISE>.Concat(data...<CODE>).InDocumentOrder
 
        'Récupération du code correspondant à l'entreprise :
        Dim i As Integer = 0
        For Each el As XElement In list1
            i += 1
            If el.Value = entreprise Then
                MessageBox.Show(list1(i).Value)
            End If
        Next

La seconde partie du code n'est pas très pro, mais avec un "Where", je pense qu'en deux ou trois lignes de code, l'affaire serait bâchée.
A voir.

Voilà à tester :

Code:

1
2
3
4
5
        Dim entrepriseChoisie As String = "Sarl Num3"
        Dim data As XDocument = XDocument.Load(Application.StartupPath & "\suggest.XML")
        Dim entreprises = From entreprise In data.Descendants("ENTREPRISE") Where entreprise.Element("NOM_ENTREPRISE").Value = entrepriseChoisie _
                      Select entreprise.Descendants("CODE").Value
        MessageBox.Show(entreprises(0))