Discussion :

[BasicZX81]

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

[popo]

Tout faire à la main est contre productif et source d'erreurs et/ou d'oublis.
Le plus simple est d'utiliser la sérialisation

https://www.newtonsoft.com/json/help...lizingjson.htm

Ecrire du JSON string json = JsonConvert.SerializeObject(something).
Lire du JSON Something something = JsonConvert.DeserializeObject<Something>(json);.

[BasicZX81]

Un grand merci popo
J'apprécie le conseil très judicieux car il est vrai que l'on pourrait parfois passer à coté de choses simples (ce que je recherche toujours en priorité).
Mais pour ce fichier en particulier, je souhaite mettre en forme moi-même, et aussi pour le fait d'expérimenter, j'avoue.

Et j'ai donc enfin fini par trouver la solution ici :
https://www.newtonsoft.com/json/help...ritingJSON.htm

J'ai pas encore complétement décidé de la solution à adopter au final, ne serait-ce pour des raisons de performance car mes premiers essais me semble pas fou sur cet aspect lors de la lecture. Mais je peux passer en résolu.