Discussion :

[BasicZX81]

Bonjour à tous,
J'ai décidé de laisser tomber la serialization pour écrire moi-même les fichiers XML comme je veux.
Par contre j'ai une liste d'objets 'Layout' que j'aimerais écrire à l’intérieur de chaque objet 'Track' mais je ne parviens pas à rappeler le nœud xml qui va bien pour écrire dans ce dernier. (Voir mon code avec les 3 petits points...)
Je suis un peu dérouté par Linq que j'utilise pour la première fois mais ça va venir à force....

En vous remerciant par avance.

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
 Public Sub Save(ByVal fileName As String)
 
        '//create the document
        Dim doc As XDocument = <?xml version="1.0" encoding="utf-8"?>
                               <root TracksCount=<%= _Tracks.Count %> Toto=<%= 8 %>></root>
 
        '//loop all Track
        For Each kvp As KeyValuePair(Of String, Track) In _Tracks
            doc.Root.Add(<TrackName><%= kvp.Key %>
                             <Nom><%= kvp.Value.Nom %></Nom>
                             <Description ><%= kvp.Value.Description %></Description >
                             <Longueur ><%= kvp.Value.Longueur %></Longueur >
                         </TrackName>)
            '//loop all Layout
            For Each kvp2 As KeyValuePair(Of String, Layout) In kvp.Value.Layouts
                  ......
            Next
        Next
End Sub

[BasicZX81]

Oufff, j'ai fini par trouvé. Maintenant j'ai un nouveau petit problème :
Lorsque une propriété est null ça m’écrit une balise vide du type : <Description />, il y a moyen d’empêcher l'écriture de cette balise ? Etant donnée la syntaxe un peut particulière de Linq To Xml j'ai un peu de mal...

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
  Public Sub Save(ByVal fileName As String)
        '//create the document
        Dim doc As XDocument = <?xml version="1.0" encoding="utf-8"?>
                               <!--XMLwriter pour ACTools-->
                               <root TracksCount=<%= _Tracks.Count %> edgeCount=<%= 8 %>></root>
 
        '//loop all Track
        For Each kvp As KeyValuePair(Of String, Track) In _Tracks
            Dim elTrack As XElement = <TrackName name=<%= kvp.Key %>>
                                          <Nom><%= kvp.Value.Nom %></Nom>
                                          <Description><%= kvp.Value.Description %></Description>
                                          <Longueur><%= kvp.Value.Longueur %></Longueur>
                                      </TrackName>
            doc.Root.Add(elTrack)
            For Each kvp2 As KeyValuePair(Of String, Layout) In kvp.Value.Layouts
                Dim elLayout As XElement = <TrackLayout name=<%= kvp2.Key %>>
                                               <Nom><%= kvp2.Value.Nom %></Nom>
                                               <Description><%= kvp2.Value.Description %></Description>
                                               <Longueur><%= kvp2.Value.Longueur %></Longueur>
                                           </TrackLayout>
                elTrack.Add(elLayout)
            Next
        Next
 
        '//saves the file
        doc.Save(fileName)
    End Sub

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
  Public Function Load(ByVal fileName As String) As Tracks
        '//try to read the Xml file
        Try
            '//load the Xml and create the new Tracks
            Dim doc = XDocument.Load(fileName)
            Dim Tracks = New Tracks()
 
            '//get all Track
            For Each elTrack In doc.<root>.<TrackName>
                Dim Track As New Track(elTrack.@name)
                Track.Nom = elTrack.<Nom>.Value
                Track.Description = elTrack.<Description>.Value
 
                For Each elLayout In doc.<root>.<TrackName>.<TrackLayout>
                    Dim Layout As New Layout(elLayout.@name)
                    Layout.Nom = elLayout.<Nom>.Value
                    Layout.Description = elLayout.<Description>.Value
 
                    Track.Layouts.Add(Layout.LayoutName, Layout)
                Next
                Tracks.Add(Track.Name, Track)
            Next
 
            Return Tracks
        Catch ex As Exception
            Return Nothing
        End Try
    End Function