(VB.NET UWP/WinRT) 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..

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

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

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

' jsonA contains:

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


Dim jsonB As New Chilkat.JsonObject
jsonB.UpdateString("type","mammal")
jsonB.UpdateBool("carnivore",False)

jsonB.EmitCompact = False
Debug.WriteLine(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:
jsonA.AddObjectAt(1,"info")

' Get the JSON object at that location, and load the JSON..
Dim jsonInfo As Chilkat.JsonObject = jsonA.ObjectOf("info")
jsonInfo.Load(jsonB.Emit())


Debug.WriteLine(jsonA.Emit())

' The end result is this:

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