B4X Requires Chilkat v11.0.0+

Insert JSON Object into another JSON Object

See more JSON Examples

Demonstrates how to insert one JSON object into another. Effectively, the JSON object must be copied into the other.. B4X

'  Imagine we have two separate JSON objects.
Dim jsonA As ChilkatJsonObject
jsonA.Initialize
jsonA.UpdateString("animal", "zebra")
jsonA.UpdateString("colors[0]", "white")
jsonA.UpdateString("colors[1]", "black")

jsonA.EmitCompact = False
Log(jsonA.Emit)

'  jsonA contains:

'  {
'    "animal": "zebra",
'    "colors": [
'      "white",
'      "black"
'    ]
'  }


Dim jsonB As ChilkatJsonObject
jsonB.Initialize
jsonB.UpdateString("type", "mammal")
jsonB.UpdateBool("carnivore", False)

jsonB.EmitCompact = False
Log(jsonB.Emit)

'  jsonB contains:

'  {
'    "type": "mammal",
'    "carnivore": false
'  }


'  Let's say we want to insert jsonB into jsonA to get this:

'  {
'    "animal": "zebra",
'    "info" " {
'        "type": "mammal",
'        "carnivore": false
'  	},
'    "colors": [
'      "white",
'      "black"
'    ]
'  }


jsonA.AddObjectCopyAt(1, "info", jsonB)

Log(jsonA.Emit)

'  The result is this:

'  {
'    "animal": "zebra",
'    "info": {
'      "type": "mammal",
'      "carnivore": false
'    },
'    "colors": [
'      "white",
'      "black"
'    ]
'  }