(VB.NET) JSON Copy Objects

Copy objects from one JSON document to another.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim json1 As New Chilkat.JsonObject
json1.UpdateString("ID1.cn","Name")
json1.UpdateString("ID1.objectGUID","GUID")
json1.UpdateString("ID2.cn","Name")
json1.UpdateString("ID2.objectGUID","GUID")

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

' json1 contains:
' {
'   "ID1": {
'     "cn": "Name",
'     "objectGUID": "GUID"
'   },
'   "ID2": {
'     "cn": "Name",
'     "objectGUID": "GUID"
'   }
' }

Dim json2 As New Chilkat.JsonObject
json2.UpdateString("Name1.ID1.cn","Name")
json2.UpdateString("Name1.ID1.objectGUID","GUID")
json2.UpdateString("Name1.ID2.cn","Name")
json2.UpdateString("Name1.ID2.objectGUID","GUID")
json2.UpdateString("Name2.ID3.cn","Name")
json2.UpdateString("Name2.ID3.objectGUID","GUID")

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

' {
'   "Name1": {
'     "ID1": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     },
'     "ID2": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     }
'   },
'   "Name2": {
'     "ID3": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     }
'   }
' }

' Copy Name1, Name2 into json1

Dim i As Integer = 0
Dim numMembers As Integer = json2.Size
While i < numMembers
    Dim jsonObj As Chilkat.JsonObject = json2.ObjectAt(i)
    json1.AppendObjectCopy(json2.NameAt(i),jsonObj)
    i = i + 1
End While

' Now see what json1 contains:
Debug.WriteLine(json1.Emit())

' {
'   "ID1": {
'     "cn": "Name",
'     "objectGUID": "GUID"
'   },
'   "ID2": {
'     "cn": "Name",
'     "objectGUID": "GUID"
'   },
'   "Name1": {
'     "ID1": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     },
'     "ID2": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     }
'   },
'   "Name2": {
'     "ID3": {
'       "cn": "Name",
'       "objectGUID": "GUID"
'     }
'   }
' }