(Visual FoxPro) Swap JSON Objects

Demonstrates how to swap two JSON objects within a JSON document.

Note: This example requires Chilkat v9.5.0.76 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loJson
LOCAL lnSuccess
LOCAL lnIndex1
LOCAL lnIndex2
LOCAL loJsonSara

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')
loJson.EmitCompact = 0

* Load the following JSON:

* {
*   "petter": {
*     "DOB": "26/02/1986",
*     "gender": "male",
*     "country": "US"
*   },
*   "Sara": {
*     "DOB": "13/05/1982",
*     "gender": "female",
*     "country": "FR"
*   },
*   "Jon": {
*     "DOB": "19/03/1984",
*     "gender": "male",
*     "country": "UK"
*   }
* }

lnSuccess = loJson.LoadFile("qa_data/json/people.json")
* Assume success..

* Swap the positions of Jon and Sara.
lnIndex1 = loJson.IndexOf("Jon")
lnIndex2 = loJson.IndexOf("Sara")
loJson.Swap(lnIndex1,lnIndex2)

* We have this now:
? loJson.Emit()

* {
*   "petter": {
*     "DOB": "26/02/1986",
*     "gender": "male",
*     "country": "US"
*   },
*   "Jon": {
*     "DOB": "19/03/1984",
*     "gender": "male",
*     "country": "UK"
*   },
*   "Sara": {
*     "DOB": "13/05/1982",
*     "gender": "female",
*     "country": "FR"
*   }
* }

* To swap an inner member:
loJsonSara = loJson.ObjectOf("Sara")
lnIndex1 = loJsonSara.IndexOf("DOB")
lnIndex2 = loJsonSara.IndexOf("country")
loJsonSara.Swap(lnIndex1,lnIndex2)
RELEASE loJsonSara

* We now have this:
? loJson.Emit()

* {
*   "petter": {
*     "DOB": "26/02/1986",
*     "gender": "male",
*     "country": "US"
*   },
*   "Jon": {
*     "DOB": "19/03/1984",
*     "gender": "male",
*     "country": "UK"
*   },
*   "Sara": {
*     "country": "FR",
*     "gender": "female",
*     "DOB": "13/05/1982"
*   }
* }

RELEASE loJson