private function extraitdonnees(path as string) as string() '... dim a,b as string '... return new string() {a,b} end function
for each fichier as io.fileinfo in new io.directoryinfo(path).getfiles("*.xml") dim data() as string = extraitdonnees(fichier.fullname) listbox1.items.add(data(0)) listbox2.items.add(data(1) next
for each fichier as io.fileinfo in new io.directoryinfo(path).getfiles("*.xml",IO.SearchOption.AllDirectories) dim data() as string = extraitdonnees(fichier.fullname) listbox1.items.add(data(0)) listbox2.items.add(data(1)) '<-- parenthèse manquante dans mon code précédent next
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question<esri> <dataproperties> <coordRef> ma valeur </coordRef> </dataproperties> Merci </esri>:
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.
If noeudEnf.LocalName = "CreaDate" Then a = noeudEnf.InnerText Else If (noeudEnf.LocalName = "SyncOnce") Then
<esri> <dataproperties> <coordRef> ma valeur </coordRef> </dataproperties> Merci </esri>