(VBScript) Sort JSON Object by Member Key Name

See more JSON Examples

IMPORTANT: This example requires a pre-release for the next version of Chilkat after the current v9.5.0.99 release. Contact info@chilkatsoft.com if you wish to get a pre-release. However, pre-releases of .NET Core (hosted on NuGet) and Node.js will not be possible.

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

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
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..
' jsonAbc is a Chilkat.JsonObject
Set jsonAbc = json.ObjectOf("abc")
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