Visual FoxPro

JSON: Renaming and Deleting Members

See more JSON Examples

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

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

Visual FoxPro

LOCAL lnSuccess
LOCAL loJson

lnSuccess = 0

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