(Visual FoxPro) 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

LOCAL loJson
LOCAL lnSuccess
LOCAL lnNumMembers
LOCAL i
LOCAL lcName
LOCAL loJRecord

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject')
loJson = CreateObject('Chilkat.JsonObject')

lnSuccess = loJson.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, ...
lnNumMembers = loJson.Size

FOR i = 0 TO lnNumMembers - 1

    lcName = loJson.NameAt(i)

    ? lcName + ":"
    loJRecord = loJson.ObjectAt(i)

    ? "entity_id: " + loJRecord.StringOf("entity_id")
    ? "type_id: " + loJRecord.StringOf("type_id")
    ? "sku: " + loJRecord.StringOf("sku")

    RELEASE loJRecord

NEXT

RELEASE loJson