Bonjour à tous,
J'ai codé la partie écriture mais je ne parviens pas à écrire le code pour la lecture.
Pouvez vous me donner quelques pistes pour faire cela. J'ai fait quelques essai avec un JsonTextReader et cela fait un moment que je cherche mais je n'y suis pas parvenu.

Merci beaucoup si vous pouvez m'aider.

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
    Public Shared Sub WriteMap(Map As MapBase, FileName As String)
        Using sw As New StreamWriter(FileName)
            Using Writer As New JsonTextWriter(sw)
                Writer.Formatting = Formatting.Indented
                Writer.WriteStartObject()
                Writer.WritePropertyName(NameOf(Map.MapName))
                Writer.WriteValue(Map.MapName)
                Writer.WritePropertyName(NameOf(Map.MapWidth))
                Writer.WriteValue(Map.MapWidth)
                Writer.WritePropertyName(NameOf(Map.MapHeight))
                Writer.WriteValue(Map.MapHeight)
                For X = 0 To Map.MapWidth - 1
                    For Y = 0 To Map.MapHeight - 1
                        If Y = 0 Then
                            Writer.Formatting = Formatting.Indented
                        Else
                            Writer.Formatting = Formatting.None
                        End If
                        Writer.WritePropertyName("TileSet.Id")
                        Writer.WriteValue(Map.TileList(X, Y).Tileset.Id)
                        Writer.Formatting = Formatting.None
                        Writer.WritePropertyName("Id")
                        Writer.WriteValue(Map.TileList(X, Y).Id)
                    Next
                Next
                Writer.WriteEndObject()
 
                Writer.Close()
            End Using
            sw.Close()
        End Using
    End Sub