(Xojo Plugin) 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 Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim json As New Chilkat.JsonObject
json.EmitCompact = False

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

Dim success As Boolean
success = json.LoadFile("qa_data/json/people.json")
// Assume success..

// Swap the positions of Jon and Sara.
Dim index1 As Int32
index1 = json.IndexOf("Jon")
Dim index2 As Int32
index2 = json.IndexOf("Sara")
success = json.Swap(index1,index2)

// We have this now:
System.DebugLog(json.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:
Dim jsonSara As Chilkat.JsonObject
jsonSara = json.ObjectOf("Sara")
index1 = jsonSara.IndexOf("DOB")
index2 = jsonSara.IndexOf("country")
success = jsonSara.Swap(index1,index2)

// We now have this:
System.DebugLog(json.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"
//   }
// }