Fichier JSon ajouter des éléments

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
fd
Messages : 70
Inscription : mar. 15/mars/2005 21:41
Localisation : Savoie

Fichier JSon ajouter des éléments

Message par fd »

Bonjour,
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
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.
Avatar de l’utilisateur
Naheulf
Messages : 191
Inscription : dim. 10/mars/2013 22:22
Localisation : France

Re: Fichier JSon ajouter des éléments

Message par Naheulf »

Alors là je voudrais bien t’aider, mais je ne vois pas quelles sont les modifications que tu veux apporter au fichier. Peux-tu nous mettre un exemple du fichier "Initialisation.txt" avant et après la modif souhaitée ?
Répondre