Bonjour
je voudrais savoir comment faire pour extraire les données de plusieurs fichiers xml en même temps sachant qu'il ont tous la même structure.

j'arrive juste a extraire les données d'un seul fichier .

le principe serait de faire un boucle en fonction du nombre des fichiers sélectionné et répéter l'opération plusieurs fois mais je n'y arrive pas .. quelqu'un peut m'aider ?

Merci !

code pour le code pour parcourir les fichiers

Code Visual Basic :


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
Public path As String
 
 For i = 1 To OpenFileDialog1.FileNames.Count
                OpenFileDialog1.Multiselect = True
                OpenFileDialog1.Title = ("Load your File")
                OpenFileDialog1.DefaultExt = "XML"
                OpenFileDialog1.FileName = String.Empty
 
                OpenFileDialog1.Filter = "Fichiers XML (*.XML) | *.XML|Tout les fichiers (*.*)|*.*"
                OpenFileDialog1.FilterIndex = 1
 
                If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
                    path = OpenFileDialog1.FileName
                End If
            Next
le code qui extrait les données est le suivant
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
 
Code Visual Basic :
 
 Dim XmlDoc As XmlDocument = New XmlDocument()
            XmlDoc.Load(path)
 
            Dim noeud, noeudEnf As XmlNode
 
            Dim element As XmlNodeList
 
            element = XmlDoc.DocumentElement.GetElementsByTagName("Esri")
 
            Dim a, b As String
 
 
            For Each noeud In element
                For Each noeudEnf In noeud.ChildNodes
                    If noeudEnf.LocalName = "CreaDate" Then
                        a = noeudEnf.InnerText
 
                    Else
                        If (noeudEnf.LocalName = "SyncOnce") Then
                            b = noeudEnf.InnerText
                        End If
                    End If
 
 
                Next
 
            Next
            'MsgBox(b & " à " & a)
            ListBox1.Items.Add(a)
            ListBox2.Items.Add(b)