(PureBasic) 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 PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkJsonObject.pb"

Procedure ChilkatExample()

    json.i = CkJsonObject::ckCreate()
    If json.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkJsonObject::ckUpdateString(json,"xyz","1234")
    CkJsonObject::ckUpdateString(json,"abc.xyz","1234")
    CkJsonObject::ckUpdateString(json,"abc.def","1234")
    CkJsonObject::ckUpdateString(json,"abc.aaa","1234")
    CkJsonObject::ckUpdateString(json,"ghi","1234")
    CkJsonObject::ckUpdateString(json,"nmo","1234")

    CkJsonObject::setCkEmitCompact(json, 0)
    Debug CkJsonObject::ckEmit(json)

    ; 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.i = 1
    caseSensitive.i = 1
    CkJsonObject::ckSort(json,ascending,caseSensitive)

    ; Look at the sorted JSON..
    Debug CkJsonObject::ckEmit(json)

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

    ; Now sort the members of the "abc" object..
    jsonAbc.i = CkJsonObject::ckObjectOf(json,"abc")
    CkJsonObject::ckSort(jsonAbc,ascending,caseSensitive)
    CkJsonObject::ckDispose(jsonAbc)

    ; Now look at the JSON with the members under "abc" also sorted..
    Debug CkJsonObject::ckEmit(json)

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


    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure