Discussion :

[kimioux]

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)

[kimioux]

C'est Résolu ! voila le code j'espère que ça servira a qlq'un !

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
private function extraitdonnees(path as string) as string()
 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
 
   return new string() {a,b}
end function

Code :

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

1
2
3
4
5
6
7
8
 
for each fichier as io.fileinfo in new io.directoryinfo(path).getfiles("*.xml")
 
Dim path As String = folderbrowserdialgo1.SelectedPath
dim data() as string = extraitdonnees(fichier.fullname)
listbox1.items.add(a)
listbox2.items.add(b)
next

pour parcourir essayez ça

Code :

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

1
2
3
4
5
6
7
 
for each fichier as io.fileinfo in new io.directoryinfo(path).getfiles("*.xml",IO.SearchOption.AllDirectories)
Dim path As String = folderbrowserdialgo1.SelectedPath
dim data() as string = extraitdonnees(fichier.fullname)
listbox1.items.add(a)
listbox2.items.add(b)
next