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