j aimerais ici récupérer le contenu de la balise ref et la mettre dans une liste box.
Cependant,ce fichier xml n'est qu'un extrait et il contient plusieurs ref et je pense qu'il me faut une boucle pour ajouter a ma lisbox toute les reférence.
j'arrive à les récupérer dans une msgbox mais ce n'est pas le but rechercher ( et si 1000 ref 1000 msgbox heu... ^^ )
cs_christoni
Messages postés140Date d'inscriptionmardi 25 novembre 2003StatutMembreDernière intervention 1 novembre 20107 3 févr. 2010 à 15:58
Re,
OpenFile("monFich.xml")
ce code sans autre indication cherche automatiquement le fichier indiqué dans le Debug de ton application.
Si ce fichier est stocké ailleurs, là il faut indiquer le chemin pour que l'application sache où le trouver.
Dim ds As DataSet = New DataSet
Dim factBindingSource As BindingSource = New BindingSource
Private Sub OpenFile(ByVal fichier As String)
'*** Représente un document XML en mémoire et charge les données XML spécifiées
Dim doc As XmlDocument = New XmlDocument()
doc.Load(fichier)
'*** Sélectionne une liste de nœuds correspondant à l'expression XPath recherchée,
' et les stocke dans une collection
Dim nodeList As XmlNodeList
Dim root As XmlElement = doc.DocumentElement
nodeList = root.SelectNodes("/quincaillerie/objet/Ref")
'*** Reste à les récupérer dans la ListBox.
For Each ref As XmlNode In nodeList
ListBox1.Items.Add(ref.InnerXml)
Next
End Sub
Et sans oublier d'importer l'espace de noms XML, comme suit :
Imports System.Xml
Et d'appeler cette sub d'une façon ou d'une autre comme par exemple un Button :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'*** "fichier" est le nom du fichier (SANS oublier son chemin).
OpenFile("monFich.xml")
End Sub