(Visual FoxPro) JSON: Renaming and Deleting Members

Demonstrates renaming and deleting members. This example uses the following JSON document:

{
   "apple": "red",
   "lime": "green",
   "banana": "yellow",
   "broccoli": "green",
   "strawberry": "red"
}

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loJson
LOCAL lnSuccess

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')

lnSuccess = loJson.Load('{"apple": "red","lime": "green","banana": "yellow","broccoli": "green","strawberry": "red"}')
IF (lnSuccess <> 1) THEN
    ? loJson.LastErrorText
    RELEASE loJson
    CANCEL
ENDIF

* Rename "lime" to "lemon".
lnSuccess = loJson.Rename("lime","lemon")
* Change the color to yellow:
lnSuccess = loJson.SetStringOf("lemon","yellow")

* Rename by index.  Banana is at index 2 (apple is at index 0)
lnSuccess = loJson.RenameAt(2,"bartlett_pear")

* Delete broccoli by name
lnSuccess = loJson.Delete("broccoli")

* Delete apple by index.  Apple is at index 0.
lnSuccess = loJson.DeleteAt(0)

loJson.EmitCompact = 0
? loJson.Emit()

RELEASE loJson