Fichier JSon ajouter des éléments
Publié : dim. 03/janv./2021 12:02
Bonjour,
Je souhaite ajouter des éléments à un fichier Json sans passer par une "list" ou une "map".
Le problème vient de la ligne KO qui réinitialise mon Json et donc il ne contient à la sauvegarde que mon enregistrement supplémentaire.
Avez-vous une idée. je vous remercie par avance.
Belle et bonne nouvelle année.
Je souhaite ajouter des éléments à un fichier Json sans passer par une "list" ou une "map".
Code : Tout sélectionner
If LoadJSON(#Json, "Initialisation.txt")
Debug ComposeJSON(#json, #PB_JSON_PrettyPrint) + #CRLF$ ; Ok
jsonObject = SetJSONObject(JSONValue(#json)) ; KO
jsonArray = AddJSONMember(jsonObject, "xxxx")
SetJSONArray(jsonArray)
jsonArrayElements = AddJSONElement(jsonArray)
SetJSONString(jsonArrayElements, "xxxx xxxxxxxxxx")
jsonArrayElements = AddJSONElement(jsonArray)
SetJSONString(jsonArrayElements, "19010101")
Endif
SaveJSON(#Json, "Initialisation.txt", #PB_JSON_PrettyPrint)
EndIf
Avez-vous une idée. je vous remercie par avance.
Belle et bonne nouvelle année.