Visual FoxPro

JSON Iterate Members

See more JSON Examples

Demonstrates how to loop over the immediate members of a JSON object. Visual FoxPro

LOCAL lnSuccess
LOCAL loJson
LOCAL lcJsonStr
LOCAL lnNumMembers
LOCAL i
LOCAL lcName
LOCAL lcValue
LOCAL lnIValue

lnSuccess = 0

loJson = CreateObject('Chilkat.JsonObject')

lcJsonStr = '{ "id": 1, "name": "A green door", "tags": ["home", "green"], "price": 125 }'

lnSuccess = loJson.Load(lcJsonStr)
IF (lnSuccess <> 1) THEN
    ? loJson.LastErrorText
    RELEASE loJson
    CANCEL
ENDIF

lnNumMembers = loJson.Size

FOR i = 0 TO lnNumMembers - 1

    lcName = loJson.NameAt(i)
    lcValue = loJson.StringAt(i)

    ? lcName + ": " + lcValue

    lnIValue = loJson.IntAt(i)
    ? lcName + " as integer: " + STR(lnIValue)

NEXT

* Note: The StringAt method returns the value as a string regardless of the type.
* If the value is a JSON array (such as for ["home", "green"]), then the JSON encoding
* of the entire array is returned.

* The IntAt method returns the value as an integer.  If the value does not convert to 
* an integer, then 0 is returned

RELEASE loJson