Extraction informations fichier Xml

Version imprimable

Bonjour la communauté,

Je travaille actuellement sur l'extraction de données depuis un fichier Xml. J'ai quelques difficultés pour extraire et stocker dans une variable nommée 'horaires' les informations suivantes :
Code:

1 2 3 4 5 6 7 8 9 <Ouverture> <PlageJ début="mardi" fin="mardi"> <PlageH début="13:30:00" fin="17:30:00"/> </PlageJ> <PlageJ début="mercredi" fin="jeudi"> <PlageH début="09:00:00" fin="12:00:00"/> <PlageH début="13:30:00" fin="17:30:00"/> </PlageJ> </Ouverture>
Résultat souhaité (variable horaires) : début="mardi" fin="mardi" début="13:30:00" fin="17:30:00" début="mercredi" fin="jeudi" début="09:00:00" fin="12:00:00" début="13:30:00" fin="17:30:00"

En vous remerciant par avance de votre retour.

Thierry

16/08/2020, 11h39
wallace1

Bonjour,

Le plus simple pour rester dans la notion Objet, serait d utiliser la Serialization Xml.
J ai créé un exemple sur mon profil (blog forum : https://www.developpez.net/forums/blogs/260975-wallace1/b1751/serialization-xml/ ).
Si tu veux serializer des nœuds multiples il faut ajouter une propriété List(of .....) et je crois lire que tu as 2 propriétés à gérer ainsi dans ton xml posté + haut.
Et j ai répondu à ce genre de sujet également une multitude de fois. Tu devrais pouvoir trouver ton bonheur avec des exemples illustrés.

Bon codage et si tu as des questions specifiques je serai ravi d y répondre.

++

Il aurait été peut être plus clair (plus "base-de-données") de faire une structure du genre:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
<Ouverture>
<Jour id="mardi">
         <PlageH début="13:30" fin="17:30"/>
</Jour>
<Jour id="mercredi">
         <PlageH début="09:00" fin="12:00"/>
         <PlageH début="13:30" fin="17:30"/>
</Jour>
<Jour id="jeudi">
         <PlageH début="09:00" fin="12:00"/>
         <PlageH début="13:30" fin="17:30"/>
</Jour>
....etc...
</Ouverture>

Tu crées
une classe Plage avec 2 propriétés Début et Fin
une classe Jour avec une propriété id (string) et une propriété Plages (List(Of Plage))
Un classe Ouverture avec une propriété Jours (List(Of Jour))

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Class Plage
    Property Debut As String
    Property Fin As String
End Class
Public Class Jour
    Property id As String = ""
    Property Plages As List(Of Plage)
    Public Sub New()
        Plages = New List(Of Plage)
    End Sub
End Class
Public Class Ouverture
    Property Jours As List(Of Jour)
    Public Sub New()
        Jours = New List(Of Jour)
    End Sub
End Class

Pour lire le XML:

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
        Dim xmlDoc As New XmlDocument
        Dim xChapter As XmlElement
 
        Try
            Dim sTables As String = sXML
            xmlDoc.LoadXml(sTables)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
 
        xChapter = xmlDoc.DocumentElement
        Dim lOuverture As New Ouverture
        For Each noeud As XmlNode In xChapter
            Dim lJour As New Jour With {.id = noeud.Attributes("id").Value}
            Dim lPlages As New List(Of Plage)
 
            For Each noeudfils As XmlNode In noeud.ChildNodes
 
                Dim lPlage As New Plage With {.Debut = noeudfils.Attributes("début").Value, .Fin = noeudfils.Attributes("fin").Value}
 
                lPlages.Add(lPlage)
 
            Next
            lJour.Plages = lPlages
            lOuverture.Jours.Add(lJour)
        Next
 
        xmlDoc = Nothing

Voilà le principe en simplifié. Rajoute les Try/Catch/End Try qui vont bien en cas de mauvais formatage xml etc...

Amuse toi bien;)