(Excel) 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..

Download Excel Class Modules Chilkat Excel Class Modules

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

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

' jsonA contains:

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

Dim jsonB As Chilkat.JsonObject
Set jsonB = Chilkat.NewJsonObject
success = jsonB.UpdateString("type","mammal")
success = jsonB.UpdateBool("carnivore",False)

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

' First add an empty object at the desired location:
success = jsonA.AddObjectAt(1,"info")

' Get the JSON object at that location, and load the JSON..

Set jsonInfo = jsonA.ObjectOf("info")
success = jsonInfo.Load(jsonB.Emit())

Debug.Print jsonA.Emit()

' The end result is this:

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