(VB.NET) 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 .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim json As New Chilkat.JsonObject

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

' Look at the sorted JSON..
Debug.WriteLine(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 Chilkat.JsonObject = json.ObjectOf("abc")
jsonAbc.Sort(ascending,caseSensitive)


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

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