B4X

JSON Copy Objects

See more JSON Examples

Copy objects from one JSON document to another. B4X

Dim json1 As ChilkatJsonObject
json1.Initialize
json1.UpdateString("ID1.cn", "Name")
json1.UpdateString("ID1.objectGUID", "GUID")
json1.UpdateString("ID2.cn", "Name")
json1.UpdateString("ID2.objectGUID", "GUID")

json1.EmitCompact = False
Log(json1.Emit)

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

Dim json2 As ChilkatJsonObject
json2.Initialize
json2.UpdateString("Name1.ID1.cn", "Name")
json2.UpdateString("Name1.ID1.objectGUID", "GUID")
json2.UpdateString("Name1.ID2.cn", "Name")
json2.UpdateString("Name1.ID2.objectGUID", "GUID")
json2.UpdateString("Name2.ID3.cn", "Name")
json2.UpdateString("Name2.ID3.objectGUID", "GUID")

json2.EmitCompact = False
Log(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 Int = 0
Dim numMembers As Int = json2.Size
Do While i < numMembers
    Dim jsonObj As ChilkatJsonObject = json2.ObjectAt(i)
    json1.AppendObjectCopy(json2.NameAt(i), jsonObj)
    i = i + 1
Loop

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