(Xojo Plugin) Sort JSON Object by Member Key Name

See more JSON Examples

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim json As New Chilkat.JsonObject

Dim success As Boolean
success = json.UpdateString("xyz","1234")
success = json.UpdateString("abc.xyz","1234")
success = json.UpdateString("abc.def","1234")
success = json.UpdateString("abc.aaa","1234")
success = json.UpdateString("ghi","1234")
success = json.UpdateString("nmo","1234")

json.EmitCompact = False
System.DebugLog(json.Emit())

// This is our initial JSON:

// {
//   "xyz": "1234",
//   "abc": {
//     "xyz": "1234",
//     "def": "1234",
//     "aaa": "1234"
//   },
//   "ghi": "1234",
//   "nmo": "1234"
// }

// Sort the top-level JSON object by key.
Dim ascending As Boolean
ascending = True
Dim caseSensitive As Boolean
caseSensitive = True
json.Sort ascending,caseSensitive

// Look at the sorted JSON..
System.DebugLog(json.Emit())

// {
//   "abc": {
//     "xyz": "1234",
//     "def": "1234",
//     "aaa": "1234"
//   },
//   "ghi": "1234",
//   "nmo": "1234",
//   "xyz": "1234"
// }

// Now sort the members of the "abc" object..
Dim jsonAbc As New Chilkat.JsonObject
success = json.ObjectOf2("abc",jsonAbc)

jsonAbc.Sort ascending,caseSensitive

// Now look at the JSON with the members under "abc" also sorted..
System.DebugLog(json.Emit())

// {
//   "abc": {
//     "aaa": "1234",
//     "def": "1234",
//     "xyz": "1234"
//   },
//   "ghi": "1234",
//   "nmo": "1234",
//   "xyz": "1234"
// }