(Visual Basic 6.0) JSON Copy Objects

Copy objects from one JSON document to another.

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

Dim json1 As New ChilkatJsonObject
success = json1.UpdateString("ID1.cn","Name")
success = json1.UpdateString("ID1.objectGUID","GUID")
success = json1.UpdateString("ID2.cn","Name")
success = json1.UpdateString("ID2.objectGUID","GUID")

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

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

Dim json2 As New ChilkatJsonObject
success = json2.UpdateString("Name1.ID1.cn","Name")
success = json2.UpdateString("Name1.ID1.objectGUID","GUID")
success = json2.UpdateString("Name1.ID2.cn","Name")
success = json2.UpdateString("Name1.ID2.objectGUID","GUID")
success = json2.UpdateString("Name2.ID3.cn","Name")
success = json2.UpdateString("Name2.ID3.objectGUID","GUID")

json2.EmitCompact = 0
Debug.Print 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 Long
i = 0
Dim numMembers As Long
numMembers = json2.Size
Do While i < numMembers
    Dim jsonObj As ChilkatJsonObject
    Set jsonObj = json2.ObjectAt(i)
    success = json1.AppendObjectCopy(json2.NameAt(i),jsonObj)
    i = i + 1
Loop

' Now see what json1 contains:
Debug.Print 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"
'     }
'   }
' }