Discussion :

[alex61]

bonjour

j'ai un fichier xml comme ceci

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

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 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 ?

[yonpo]

Salut,

Je ne touche pas souvent au XML mais est ce que

Code :

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

1
2
3
 
For Each noeudEPI In element
...

ne serait pas plutôt

Code :

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

1
2
3
 
For Each noeudEPI In element2
...

A voir...

[alex61]

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 :

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

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

MsgBox(noeudEnf.FirstChild.InnerText)

ca m'affiche tout le premier nœud

mais le for each ne tourne pas ><

[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

[alex61]

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

c'est la petite blague avant le week end

[alex61]

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

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