(PowerBuilder) Iterate JSON where Member Names are Data Values

Demonstrates how to parse JSON where member names are not keywords, but instead are data values.

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

integer li_rc
oleobject loo_Json
integer li_Success
integer li_NumMembers
integer i
string ls_Name
oleobject loo_JRecord

loo_Json = create oleobject
// Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
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

li_Success = loo_Json.LoadFile("qa_data/json/valuesAsNames.json")

// Imagine we have JSON such as the following:

// {
//   "1680": {
//     "entity_id": "1680",
//     "type_id": "simple",
//     "sku": "123"
//   },
//   "1701": {
//     "entity_id": "1701",
//     "type_id": "simple",
//     "sku": "456"
//   }
// }
// 

// This presents a parsing problem because the member names, such as "1680"
// are not keywords.  Instead they are data values.  We don't know what they
// may be in advance.  

// To solve, we iterate over the members, get the name of each, ...
li_NumMembers = loo_Json.Size

for i = 0 to li_NumMembers - 1

    ls_Name = loo_Json.NameAt(i)

    Write-Debug ls_Name + ":"
    loo_JRecord = loo_Json.ObjectAt(i)

    Write-Debug "entity_id: " + loo_JRecord.StringOf("entity_id")
    Write-Debug "type_id: " + loo_JRecord.StringOf("type_id")
    Write-Debug "sku: " + loo_JRecord.StringOf("sku")

    destroy loo_JRecord

next


destroy loo_Json