[VB.Net] Comment lire un fichier xml ?

Salut,

Je voudrais lire un fichier xml en VB.net dont la structure est la suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

<Recordbook> <Records> <Record> <FirstValue>10</FirstValue> <SecondValue>51</SecondValue> </Record> <Record> <FirstValue>25</FirstValue> <SecondValue>38</SecondValue> </Record> </Records> </Recordbook>

---

qqn pourrait il me conseiller un algorithme de solution pour lire ce type de fichiers et en extraire les données essentielles, le problème étant que la liste de "record" est contenue dans "records" lui même contenu dans le "recordbook". J'ai posté le code en bas de pasge, si qqn pouvait y regarder, ce serait super cool. Je ne parviens vraiment pas à trouver!!!:(

Merci davance :mrgreen:

Salut,

C'est classique en xml, tu peux utiliser un XmlDocument pour charger ton fichier, ensuite tu peux accéder à ses éléments fils, qui eux même ont des éléments fils etc... Pour accéder directement à certains éléments tu peux utiliser des requetes Xpath (par exemple pour demander directement tous les noeuds de type Record).

Donc creuse du coté de la classe XmlDocument, et de la syntaxe du langage XPath (trés simple).

La solution du XmlDocument est bonne, mais si l'opération ne consiste qu'à de la lecture (pas d'écriture/modification du Xml) il est recommandé de passer par les classes relatives au XPath (XpathDocument/XpathNavigator/...) il me semble.

Re salut à tous,

J'ai implémenté le code suivant pour mon pb mais celà ne fonctionne pas, qqn pourrait t'il me dire ce qui ne fonctionne pas?

Code:

---

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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52

Dim temprecord As New record Dim XmlDoc As XmlDocument = New XmlDocument()   XmlDoc.Load(filename)   Dim element As XmlNodeList element = XmlDoc.DocumentElement.GetElementsByTagName("Record")   Dim node, childnode As XmlNode   For Each node In element   Dim temprecord As New record For Each childnode In node.ChildNodes   If childnode.LocalName = "Date1" Then temprecord.Date1 = childnode.InnerText Else If childnode.LocalName = "Time1" Then temprecord.Time1 = childnode.InnerText Else If childnode.LocalName = "ID1" Then temprecord.ID1 = childnode.InnerText Else If childnode.LocalName = "ID2" Then temprecord.ID2 = childnode.InnerText Else If childnode.LocalName = "ID3" Then temprecord.ID3 = childnode.InnerText Else If childnode.LocalName = "TimeInterval" Then temprecord.TimeInterval = childnode.InnerText Else If childnode.LocalName = "Response" Then temprecord.Response = childnode.InnerText Else If childnode.LocalName = "Given" Then temprecord.Given = childnode.InnerText End If End If End If End If End If End If End If End If Next 'ajout du record à l'arraylist de navigation. navigation.Add(temprecord) navIndex += 1 Next

---

'On remplit la forme avec le premier record de l'arraylist de navigation.

Code:

---

1 2 3

PopulateFormFromRecord(navigation(0)) lblRecordNumber.Text = navIndex & " of " & navigation.Count

---

Merci davance ^^ ;)

Salut,

Dans les tuto&sces il y a un exemple de xmlParser :

http://dotnet.developpez.com/sources...=xml#xmldotnet

Ce bout de code va naviguer à travers tout le XML et te donner le nom de tous les éléments, leurs attributs et leur valeur. A toi de le transformer au besoin.

PS : Il y a une petite erreur ds la version C#

Code:

---

reader.Name

---

à la place de

Code:

---

reader.Value

---

Pour obtenir la valeur du noeud.

Le code que je vais fournir répond à la question initiale, parce que le code donné par la suite ne correspond plus au fichier Xml donné au tout début. Mon code se base sur ce fichier mais est facilement adaptable au besoin.

J'utilise l'espace de nom System.Xml.XPath et je ne passe donc pas par un XmlDocument. Si on fait de la lecture seule, l'utilisation des XPath est recommandé c'est donc pourquoi je les utilise dans le code qui suit

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Imports System.Xml.XPath ... Private Sub TraiteXml() Dim doc As XPathDocument = New XPathDocument(fileName) Dim nav As XPathNavigator = doc.CreateNavigator ' On récupère un XPathNodeIterator sur les Record Dim iter As XPathNodeIterator = nav.Select_ ("Recordbook/Records/Record") ' Pour chaque Record While iter.MoveNext ' On récupère l'info FirstValue Dim firstValue As String = iter.Current.SelectSingleNode_ ("FirstValue").Value ' On récupère l'info SecondValue Dim secondValue As String = iter.Current.SelectSingleNode_ ("SecondValue").Value End While End Sub

---

Avec ceci je parcours chaque Record et j'en extrais les valeurs ;)

Merci à tous, ça m'aide vraiment super!:mouarf: :mouarf: :mouarf:

Salut à tous,

Je rencontre toujours des pb quant à la lecture de mes fichiers xml...je pensais pourtant que ce pblème était résolu :? !

voici donc le code de ma méthode et le fichier xml qui va avec en pièce jointe :

Code:

---

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 35 36 37 38 39 40

Dim doc As XPathDocument = New XPathDocument(filename)   Dim nav As XPathNavigator = doc.CreateNavigator   'On récupère un xpathnodeiterator sur les Record. Dim iter As XPathNodeIterator = nav.Select ("Recordbook/Records/Record")   While iter.MoveNext     Dim temprecord As New record     temprecord.Date1 = iter.Current.SelectSingleNode("Date1").Value   temprecord.Time1 = iter.Current.SelectSingleNode("Time1").Value   temprecord.ID1 = iter.Current.SelectSingleNode("ID1").Value   temprecord.ID2 = iter.Current.SelectSingleNode("ID2").Value   temprecord.ID3 = iter.Current.SelectSingleNode("ID3").Value   temprecord.TimeInterval = iter.Current.SelectSingleNode ("TimeInterval").Value   temprecord.Resp = iter.Current.SelectSingleNode ("Response").Value   temprecord.Given = iter.Current.SelectSingleNode("Given").Value   navigation.Add(temprecord)   End While   navIndex = 1 UpdateRecNumber() PopulateFormFromRecord(navigation(0))

---

Le problème est semble-t-il qu'il ne récupère pas les données et qu'il n'ajoute pas l'objet temprecord à mon arraylist de navigation.:(

Merci davance.

La raison est très simple, le XPath (dans ton cas "Recordbook/Records/Record") est sensible à la casse. Dans ton fichier Xml tes balises sont <Recordbook>, <Records> et <record> au lieu de <Record> ;)

Donc soit tu changes le XPath : "Recordbook/Records/record", soit tu restes homogène et tu ajoutes une majuscule au début des balises <record> pour qu'elles deviennent <Record> :)