Visual FoxPro

JSON Copy Objects

See more JSON Examples

Copy objects from one JSON document to another. Visual FoxPro

LOCAL loJson1
LOCAL loJson2
LOCAL i
LOCAL lnNumMembers
LOCAL loJsonObj

loJson1 = CreateObject('Chilkat.JsonObject')
loJson1.UpdateString("ID1.cn","Name")
loJson1.UpdateString("ID1.objectGUID","GUID")
loJson1.UpdateString("ID2.cn","Name")
loJson1.UpdateString("ID2.objectGUID","GUID")

loJson1.EmitCompact = 0
? loJson1.Emit()

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

loJson2 = CreateObject('Chilkat.JsonObject')
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 = 0
? 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