(Visual FoxPro) Loading and Parsing a JSON Array

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.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

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:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.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
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.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