B4X

JSON AddObjectCopyAt Example

Demonstrates the AddObjectCopyAt function.

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

B4X

Dim json As ChilkatJsonObject
json.Initialize
json.Load("{ " & Chr(34) & "name" & Chr(34) & ": " & Chr(34) & "John" & Chr(34) & ", " & Chr(34) & "marbles" & Chr(34) & ": 100 }")

Dim json2 As ChilkatJsonObject
json2.Initialize
json2.Load("{" & Chr(34) & "street" & Chr(34) & ":" & Chr(34) & "1200 Elm St." & Chr(34) & "," & Chr(34) & "city" & Chr(34) & ":" & Chr(34) & "Springfield" & Chr(34) & "," & Chr(34) & "zip" & Chr(34) & ":60606}")

'  Copy the contents of json2 to a new member object named "addr".
'  Insert it in the 2nd position.
json.AddObjectCopyAt(1, "addr", json2)

Log(json.Emit)
'  Expected output is:  {"name":"John","addr":{"street":"1200 Elm St.","city":"Springfield","zip":60606},"marbles":100}

'  Note: Modifying the contents of json does not modify the contents of json2 (because the contents of json2 were copied).
'  For example:
json.UpdateString("addr.street", "1000 Oak St.")
Log(json.Emit)
'  Expected output is:  {"name":"John","addr":{"street":"1000 Oak St.","city":"Springfield","zip":60606},"marbles":100}

Log(json2.Emit)
'  Expected output is: {"street":"1200 Elm St.","city":"Springfield","zip":60606}