Discussion :

[franfran]

Salut,

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

Code :

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

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

[Sphax]

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).

[StormimOn]

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.

[franfran]

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 :

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
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 :

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

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

Merci davance ^^

[b0uba2]

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 :

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

reader.Name

à la place de

Code :

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

reader.Value

Pour obtenir la valeur du noeud.

[StormimOn]

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 :

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
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

[franfran]

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

[franfran]

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 :

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
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.

[StormimOn]

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>