Si vous ne connaissez pas les caractéristiques d'un fichier JSON, cliquez sur ce lien : Présentation de JSON
■ Ce premier tutoriel sous la forme d'un code commenté abordera les points suivants :
- La création d'une chaîne JSON CreateJSON()
- L'insertion d'une liste chaînée dans une chaine JSON InsertJSONList()
- La sauvegarde d'une chaîne JSON dans un fichier SaveJSON()
- Debug de la composition d'une chaine JSON ComposeJSON()
■ Rien de sorcier, nous allons créer une structure et sa liste chaînée associée qui contiendra deux noms. Cette liste chaînée sera ensuite sauvegardée dans un fichier au format JSON.
Code : Tout sélectionner
Enumeration
#JSONFile
EndEnumeration
Structure Address
Actif.b
Name.s
County.i
EndStructure
NewList Contacts.Address()
;Création d'une structure JSON (Nouvelle fonction)
CreateJSON(#JSONFile)
;Trés classique : Ajoutons deux élémement à la liste chainée
AddElement(Contacts())
With Contacts()
\Actif = #True
\Name = "Wagner"
\County = 75
EndWith
AddElement(Contacts())
With Contacts()
\Actif = #True
\Name = "Hilton"
\County = 92
EndWith
;Insertion de la liste chainée dans la chaine JSON (Nouvelle fonction)
InsertJSONList(JSONValue(#JSONFile), Contacts())
;Sauvegarde de la chaine JSON (Nouvelle fonction)
SaveJSON(#JSONFile, "contacts.json")
;Debug de la chaine JSON (Nouvelle fonction)
Debug ComposeJSON(#JSONFile, #PB_JSON_PrettyPrint)