B4X Requires Chilkat v11.0.0+

Sort JSON Object by Member Key Name

See more JSON Examples

Demonstrates how to sort the members of a JSON object by the key name. B4X

Dim json As ChilkatJsonObject
json.Initialize

json.UpdateString("xyz", "1234")
json.UpdateString("abc.xyz", "1234")
json.UpdateString("abc.def", "1234")
json.UpdateString("abc.aaa", "1234")
json.UpdateString("ghi", "1234")
json.UpdateString("nmo", "1234")

json.EmitCompact = False
Log(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 = True
Dim caseSensitive As Boolean = True
json.Sort(ascending, caseSensitive)

'  Look at the sorted JSON..
Log(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 ChilkatJsonObject
jsonAbc.Initialize
json.ObjectOf2("abc", jsonAbc)

jsonAbc.Sort(ascending, caseSensitive)

'  Now look at the JSON with the members under "abc" also sorted..
Log(json.Emit)

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