PowerBuilder

Iterate JSON where Member Names are Data Values

See more JSON Examples

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

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

li_Success = 0

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

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