Ecrire un fichier xml avec Xdocument.

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:

---

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

---

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...8O:aie:

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

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:

---

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

---