(Xojo Plugin) JSON: Nested Array

Here we have a JSON object that contains nested arrays. This example demonstrates how to access the contents of the nested arrays.

{
 "numbers" : [ 
    ["even", 2, 4, 6, 8], 
    ["prime", 2, 3, 5, 7, 11, 13] 
  ] }

Chilkat Xojo Plugin Download Xojo Plugin for Windows, Linux, Mac OS X, and ARM, ARM64

Dim json As New Chilkat.JsonObject

// This is the above JSON with whitespace chars removed (SPACE, TAB, CR, and LF chars).
// The presence of whitespace chars for pretty-printing makes no difference to the Load
// method. 
Dim jsonStr As String
jsonStr = "{ ""numbers"" : [ [""even"", 2, 4, 6, 8], [""prime"", 2, 3, 5, 7, 11, 13] ] }"

Dim success As Boolean
success = json.Load(jsonStr)
If (success <> True) Then
    System.DebugLog(json.LastErrorText)
    Return
End If

// Get the value of the "numbers" object, which is an array that contains JSON arrays.
Dim outerArray As Chilkat.JsonArray
outerArray = json.ArrayOf("numbers")
If (json.LastMethodSuccess = False) Then
    System.DebugLog("numbers array not found.")
    Return
End If

Dim numArrays As Int32
numArrays = outerArray.Size
Dim i As Int32

For i = 0 To numArrays - 1

    Dim innerArray As Chilkat.JsonArray
    innerArray = outerArray.ArrayAt(i)

    // The first item in the innerArray is a string
    System.DebugLog(innerArray.StringAt(0) + ":")

    Dim numInnerItems As Int32
    numInnerItems = innerArray.Size
    Dim j As Int32
    For j = 1 To numInnerItems - 1

        System.DebugLog("  " + Str(innerArray.IntAt(j)))

    Next

Next