(Visual FoxPro) 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.

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

LOCAL loJson
LOCAL lnAscending
LOCAL lnCaseSensitive
LOCAL loJsonAbc

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')

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

loJson.EmitCompact = 0
? loJson.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.
lnAscending = 1
lnCaseSensitive = 1
loJson.Sort(lnAscending,lnCaseSensitive)

* Look at the sorted JSON..
? loJson.Emit()

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

* Now sort the members of the "abc" object..
loJsonAbc = loJson.ObjectOf("abc")
loJsonAbc.Sort(lnAscending,lnCaseSensitive)
RELEASE loJsonAbc

* Now look at the JSON with the members under "abc" also sorted..
? loJson.Emit()

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

RELEASE loJson