Lecture d'un fichier Json personnalisé
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:
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 |
