VBScript

JSON Copy Objects

See more JSON Examples

Copy objects from one JSON document to another. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

set json1 = CreateObject("Chilkat.JsonObject")
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
outFile.WriteLine(json1.Emit())

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

set json2 = CreateObject("Chilkat.JsonObject")
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
outFile.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

i = 0
numMembers = json2.Size
Do While i < numMembers
    ' jsonObj is a Chilkat.JsonObject
    Set jsonObj = json2.ObjectAt(i)
    success = json1.AppendObjectCopy(json2.NameAt(i),jsonObj)
    i = i + 1
Loop

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

outFile.Close