(Visual Basic 6.0) Insert JSON Object into another JSON Object

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

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

jsonA.EmitCompact = 0
Debug.Print jsonA.Emit()

' jsonA contains:

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

Dim jsonB As New ChilkatJsonObject
success = jsonB.UpdateString("type","mammal")
success = jsonB.UpdateBool("carnivore",0)

jsonB.EmitCompact = 0
Debug.Print 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"
'   ]
' }

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

Debug.Print jsonA.Emit()

' The result is this:

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