Xbase++

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. Xbase++

LOCAL nSuccess
LOCAL oJson
LOCAL nNumMembers
LOCAL i
LOCAL cName
LOCAL oJRecord

nSuccess := 0

oJson := CreateObject("Chilkat.JsonObject")

nSuccess := oJson: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, ...
nNumMembers := oJson:Size

FOR i := 0 TO nNumMembers - 1

    cName := oJson:NameAt(i)

    ? cName + ":"
    oJRecord := oJson:ObjectAt(i)

    ? "entity_id: " + oJRecord:StringOf("entity_id")
    ? "type_id: " + oJRecord:StringOf("type_id")
    ? "sku: " + oJRecord:StringOf("sku")

    oJRecord:destroy()

NEXT

oJson:destroy()