Visual FoxPro

JSON AddArrayCopyAt Example

Demonstrates the AddArrayCopyAt function.

Note: This example requires Chilkat v9.5.0.82 or above.

Visual FoxPro

LOCAL loJson
LOCAL loJarr

loJson = CreateObject('Chilkat.JsonObject')
loJson.Load('{ "name": "John", "marbles": 100 }')

loJarr = CreateObject('Chilkat.JsonArray')
loJarr.Load('[ 1, 2, 3, "apple", "orange", [ 10, 20, 30 ], { "name": "Luther"} ]')

* Copy the contents of jar to a new array member named "stuff".
* Insert the array at the 2nd position
loJson.AddArrayCopyAt(1,"stuff",loJarr)

? loJson.Emit()
* Expected output is:  {"name":"John","stuff":[1,2,3,"apple","orange",[10,20,30],{"name":"Luther"}],"marbles":100}

* Note: The contents of the array were copied.
* If we modify the contents of jarr, it does not modify the array contained within "json" because it is a separate copy.
* For example:
loJarr.AddIntAt(-1,2020)
? loJarr.Emit()
* Expected output: [1,2,3,"apple","orange",[10,20,30],{"name":"Luther"},2020]

? loJson.Emit()
* Remains unchanged: {"name":"John","stuff":[1,2,3,"apple","orange",[10,20,30],{"name":"Luther"}],"marbles":100}

RELEASE loJson
RELEASE loJarr