(Xojo Plugin) JSON Copy Objects

Copy objects from one JSON document to another.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim json1 As New Chilkat.JsonObject
Dim success As Boolean
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 = False
System.DebugLog(json1.Emit())

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

Dim json2 As New 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 = False
System.DebugLog(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 Int32
i = 0
Dim numMembers As Int32
numMembers = json2.Size
While i < numMembers
    Dim jsonObj As Chilkat.JsonObject
    jsonObj = json2.ObjectAt(i)
    success = json1.AppendObjectCopy(json2.NameAt(i),jsonObj)
    i = i + 1
Wend

// Now see what json1 contains:
System.DebugLog(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"
//     }
//   }
// }