Xbase++

JSON Iterate Members

See more JSON Examples

Demonstrates how to loop over the immediate members of a JSON object. Xbase++

LOCAL nSuccess
LOCAL oJson
LOCAL cJsonStr
LOCAL nNumMembers
LOCAL i
LOCAL cName
LOCAL cValue
LOCAL nIValue

nSuccess := 0

oJson := CreateObject("Chilkat.JsonObject")

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

nSuccess := oJson:Load(cJsonStr)
IF (nSuccess != 1)
    ? oJson:LastErrorText
    oJson:destroy()
    RETURN
ENDIF

nNumMembers := oJson:Size

FOR i := 0 TO nNumMembers - 1

    cName := oJson:NameAt(i)
    cValue := oJson:StringAt(i)

    ? cName + ": " + cValue

    nIValue := oJson:IntAt(i)
    ? cName + " as integer: " + Str(nIValue)

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.

oJson:destroy()