(AutoIt) JSON Copy Objects

Copy objects from one JSON document to another.

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

$oJson1 = ObjCreate("Chilkat.JsonObject")
$oJson1.UpdateString("ID1.cn","Name")
$oJson1.UpdateString("ID1.objectGUID","GUID")
$oJson1.UpdateString("ID2.cn","Name")
$oJson1.UpdateString("ID2.objectGUID","GUID")

$oJson1.EmitCompact = False
ConsoleWrite($oJson1.Emit() & @CRLF)

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

$oJson2 = ObjCreate("Chilkat.JsonObject")
$oJson2.UpdateString("Name1.ID1.cn","Name")
$oJson2.UpdateString("Name1.ID1.objectGUID","GUID")
$oJson2.UpdateString("Name1.ID2.cn","Name")
$oJson2.UpdateString("Name1.ID2.objectGUID","GUID")
$oJson2.UpdateString("Name2.ID3.cn","Name")
$oJson2.UpdateString("Name2.ID3.objectGUID","GUID")

$oJson2.EmitCompact = False
ConsoleWrite($oJson2.Emit() & @CRLF)

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

; Copy Name1, Name2 into json1

Local $i = 0
Local $iNumMembers = $oJson2.Size
While $i < $iNumMembers
Local $oJsonObj = $oJson2.ObjectAt($i)
    $oJson1.AppendObjectCopy($oJson2.NameAt($i),$oJsonObj)
    $i = $i + 1
Wend

; Now see what json1 contains:
ConsoleWrite($oJson1.Emit() & @CRLF)

; {
;   "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"
;     }
;   }
; }