Lianja

JSON Iterate Members

See more JSON Examples

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

llSuccess = .F.

loJson = createobject("CkJsonObject")

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

llSuccess = loJson.Load(lcJsonStr)
if (llSuccess <> .T.) then
    ? loJson.LastErrorText
    release loJson
    return
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