(Lianja) JSON Copy Objects

Copy objects from one JSON document to another.

Chilkat Lianja Extension Download Chilkat Lianja Extension

loJson1 = createobject("CkJsonObject")
loJson1.UpdateString("ID1.cn","Name")
loJson1.UpdateString("ID1.objectGUID","GUID")
loJson1.UpdateString("ID2.cn","Name")
loJson1.UpdateString("ID2.objectGUID","GUID")

loJson1.EmitCompact = .F.
? loJson1.Emit()

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

loJson2 = createobject("CkJsonObject")
loJson2.UpdateString("Name1.ID1.cn","Name")
loJson2.UpdateString("Name1.ID1.objectGUID","GUID")
loJson2.UpdateString("Name1.ID2.cn","Name")
loJson2.UpdateString("Name1.ID2.objectGUID","GUID")
loJson2.UpdateString("Name2.ID3.cn","Name")
loJson2.UpdateString("Name2.ID3.objectGUID","GUID")

loJson2.EmitCompact = .F.
? loJson2.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
lnNumMembers = loJson2.Size
do while i < lnNumMembers
    loJsonObj = loJson2.ObjectAt(i)
    loJson1.AppendObjectCopy(loJson2.NameAt(i),loJsonObj)
    i = i + 1
enddo

// Now see what json1 contains:
? loJson1.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"
//     }
//   }
// }


release loJson1
release loJson2