Xojo Plugin

JSON Copy Objects

See more JSON Examples

Copy objects from one JSON document to another. Xojo Plugin

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"
//     }
//   }
// }