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

integer li_rc
oleobject loo_Json
integer li_Ascending
integer li_CaseSensitive
oleobject loo_JsonAbc

loo_Json = create oleobject
li_rc = loo_Json.ConnectToNewObject("Chilkat.JsonObject")
if li_rc < 0 then
    destroy loo_Json
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

loo_Json.EmitCompact = 0
Write-Debug loo_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.
li_Ascending = 1
li_CaseSensitive = 1
loo_Json.Sort(li_Ascending,li_CaseSensitive)

//  Look at the sorted JSON..
Write-Debug loo_Json.Emit()

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

//  Now sort the members of the "abc" object..
loo_JsonAbc = create oleobject
li_rc = loo_JsonAbc.ConnectToNewObject("Chilkat.JsonObject")

loo_Json.ObjectOf2("abc",loo_JsonAbc)

loo_JsonAbc.Sort(li_Ascending,li_CaseSensitive)

//  Now look at the JSON with the members under "abc" also sorted..
Write-Debug loo_Json.Emit()

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


destroy loo_Json
destroy loo_JsonAbc