VBScript 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. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

set json = CreateObject("Chilkat.JsonObject")

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 = 0
outFile.WriteLine(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.
ascending = 1
caseSensitive = 1
json.Sort ascending,caseSensitive

'  Look at the sorted JSON..
outFile.WriteLine(json.Emit())

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

'  Now sort the members of the "abc" object..
set jsonAbc = CreateObject("Chilkat.JsonObject")
success = json.ObjectOf2("abc",jsonAbc)

jsonAbc.Sort ascending,caseSensitive

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

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

outFile.Close