(Lianja) Modify Parts of JSON Document

Demonstrates how to modify parts of a JSON document. This example uses the following JSON document:

{
   "fruit": [
      	{
         "kind": "apple",
	 "count": 24,
	 "fresh": true,
	 "extraInfo": null,
	 "listA": [ "abc", 1, null, false ],
	 "objectB": { "animal" : "monkey" }
      	},
	{
         "kind": "pear",
	 "count": 18,
	 "fresh": false,
	 "extraInfo": null
	 "listA": [ "xyz", 24, null, true ],
	 "objectB": { "animal" : "lemur" }
	}
    ],
    "list" : [ "banana", 12, true, null, "orange", 12.5, { "ticker": "AAPL" }, [ 1, 2, 3, 4, 5 ] ],
    "alien" : true
}

Chilkat Lianja Extension Download Chilkat Lianja Extension

loJson = createobject("CkJsonObject")

// Load the JSON from a file.
llSuccess = loJson.LoadFile("qa_data/json/modifySample.json")
if (llSuccess <> .T.) then
    ? loJson.LastErrorText
    release loJson
    return
endif

// This example will not check for errors (i.e. null / false / 0 return values)...

// Get the "list" array:
loListA = loJson.ArrayOf("list")

// Modify values in the list.

// Change banana to plantain
llSuccess = loListA.SetStringAt(0,"plantain")

// Change 12 to 24
llSuccess = loListA.SetIntAt(1,24)

// Change true to false
llSuccess = loListA.SetBoolAt(2,.F.)

// Is the 3rd item null?
llBNull = loListA.IsNullAt(3)

// Change "orange" to 32.
llSuccess = loListA.SetIntAt(4,32)

// Change 12.5 to 31.2
llSuccess = loListA.SetNumberAt(5,"31.2")

// Replace the { "ticker" : "AAPL" } object with { "ticker" : "GOOG" }
// Do this by deleting, then inserting a new object at the same location.
llSuccess = loListA.DeleteAt(6)
llSuccess = loListA.AddObjectAt(6)
loTickerObj = loListA.ObjectAt(6)
llSuccess = loTickerObj.AddStringAt(-1,"ticker","GOOG")

release loTickerObj

// Replace "[ 1, 2, 3, 4, 5 ]" with "[ "apple", 22, true, null, 1080.25 ]"
llSuccess = loListA.DeleteAt(7)
llSuccess = loListA.AddArrayAt(7)
loAa = loListA.ArrayAt(7)
llSuccess = loAa.AddStringAt(-1,"apple")
llSuccess = loAa.AddIntAt(-1,22)
llSuccess = loAa.AddBoolAt(-1,.T.)
llSuccess = loAa.AddNullAt(-1)
llSuccess = loAa.AddNumberAt(-1,"1080.25")
release loAa

release loListA

// Get the "fruit" array
loAFruit = loJson.ArrayAt(0)

// Get the 1st element:
loAppleObj = loAFruit.ObjectAt(0)

// Modify values by member name:
llSuccess = loAppleObj.SetStringOf("fruit","fuji_apple")
llSuccess = loAppleObj.SetIntOf("count",46)
llSuccess = loAppleObj.SetBoolOf("fresh",.F.)
llSuccess = loAppleObj.SetStringOf("extraInfo","developed by growers at the Tohoku Research Station in Fujisaki")

release loAppleObj

// Modify values by index:
loPearObj = loAFruit.ObjectAt(1)
llSuccess = loPearObj.SetStringAt(0,"bartlett_pear")
llSuccess = loPearObj.SetIntAt(1,12)
llSuccess = loPearObj.SetBoolAt(2,.F.)
llSuccess = loPearObj.SetStringAt(3,"harvested in late August to early September")
release loPearObj

release loAFruit

loJson.EmitCompact = .F.
? loJson.Emit()


release loJson