JSON (JavaScript Object Notation)
Publié : sam. 31/mai/2014 15:20
Une des nouveautés de la version 5.30 de Pure Basic est la gestion des fichier JSON (JavaScript Object Notation)
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.
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)