Visual FoxPro

Loading and Parsing a JSON Array

See more JSON Examples

A JSON array is JSON that begins with "[" and ends with "]". For example, this is a JSON array that contains 3 JSON objects.

[{"name":"jack"},{"name":"john"},{"name":"joe"}]

A JSON object, however, is JSON that begins with "{" and ends with "}". For example, this JSON is an object that contains an array.

{"pets":[{"name":"jack"},{"name":"john"},{"name":"joe"}]}

This example shows how loading a JSON array is different than loading a JSON object. Visual FoxPro

LOCAL lcStrJsonArray
LOCAL lcStrJsonObject
LOCAL loJsonArray
LOCAL i
LOCAL loJsonObj
LOCAL loJsonObject
LOCAL lnNumPets

lcStrJsonArray = '[{"name":"jack"},{"name":"john"},{"name":"joe"}]'

lcStrJsonObject = '{"pets":[{"name":"jack"},{"name":"john"},{"name":"joe"}]}'

* A JSON array must be loaded using JsonArray:
loJsonArray = CreateObject('Chilkat.JsonArray')
loJsonArray.Load(lcStrJsonArray)

* Examine the values:
i = 0
DO WHILE i < loJsonArray.Size
    loJsonObj = loJsonArray.ObjectAt(i)
    ? STR(i) + ": " + loJsonObj.StringOf("name")
    RELEASE loJsonObj
    i = i + 1
ENDDO

* Output is:

* 	0: jack
* 	1: john
* 	2: joe

* A JSON object must be loaded using JsonObject
loJsonObject = CreateObject('Chilkat.JsonObject')
loJsonObject.Load(lcStrJsonObject)

* Examine the values:
i = 0
lnNumPets = loJsonObject.SizeOfArray("pets")
DO WHILE i < lnNumPets
    loJsonObject.I = i
    ? STR(i) + ": " + loJsonObject.StringOf("pets[i].name")
    i = i + 1
ENDDO

* Output is:

* 	0: jack
* 	1: john
* 	2: joe

RELEASE loJsonArray
RELEASE loJsonObject