(Xojo Plugin) Iterate over JSON Array containing JSON Objects

Demonstrates how to load a JSON array and iterate over the JSON objects.

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

// Loads the following JSON array and iterates over the objects:
// 
// [
// {"tagId":95,"tagDescription":"hola 1","isPublic":true},
// {"tagId":98,"tagDescription":"hola 1","isPublic":true},
// {"tagId":101,"tagDescription":"hola 1","isPublic":true},
// {"tagId":104,"tagDescription":"hola 1","isPublic":true},
// {"tagId":107,"tagDescription":"hola 1","isPublic":true},
// {"tagId":110,"tagDescription":"hola 1","isPublic":true},
// {"tagId":113,"tagDescription":"hola 1","isPublic":true},
// {"tagId":114,"tagDescription":"hola 2","isPublic":true},
// {"tagId":111,"tagDescription":"hola 2","isPublic":true},
// {"tagId":108,"tagDescription":"hola 2","isPublic":true},
// {"tagId":105,"tagDescription":"hola 2","isPublic":true},
// {"tagId":102,"tagDescription":"hola 2","isPublic":true},
// {"tagId":99,"tagDescription":"hola 2","isPublic":true},
// {"tagId":96,"tagDescription":"hola 2","isPublic":true},
// {"tagId":97,"tagDescription":"hola 3","isPublic":true},
// {"tagId":100,"tagDescription":"hola 3","isPublic":true},
// {"tagId":103,"tagDescription":"hola 3","isPublic":true},
// {"tagId":106,"tagDescription":"hola 3","isPublic":true},
// {"tagId":109,"tagDescription":"hola 3","isPublic":true},
// {"tagId":112,"tagDescription":"hola 3","isPublic":true},
// {"tagId":115,"tagDescription":"hola 3","isPublic":true},
// {"tagId":93,"tagDescription":"new tag","isPublic":true},
// {"tagId":94,"tagDescription":"new tag","isPublic":true},
// {"tagId":89,"tagDescription":"tag 1","isPublic":true},
// {"tagId":90,"tagDescription":"tag 2","isPublic":true},
// {"tagId":91,"tagDescription":"tag private 1","isPublic":false},
// {"tagId":92,"tagDescription":"tag private 2","isPublic":false}
// ]

// Load a file containing the above JSON..
Dim sbJsonArray As New Chilkat.StringBuilder
Dim success As Boolean
success = sbJsonArray.LoadFile("qa_data/json/arraySample.json","utf-8")

Dim arr As New Chilkat.JsonArray
success = arr.LoadSb(sbJsonArray)

Dim tagId As Int32
Dim tagDescription As String
Dim isPublic As Boolean

Dim i As Int32
i = 0
Dim count As Int32
count = arr.Size
Dim obj As Chilkat.JsonObject
While i < count
    obj = arr.ObjectAt(i)
    tagId = obj.IntOf("tagId")
    tagDescription = obj.StringOf("tagDescription")
    isPublic = obj.BoolOf("isPublic")

    System.DebugLog("tagId: " + Str(tagId))
    System.DebugLog("tagDescription: " + tagDescription)
    System.DebugLog("isPublic: " + Str(isPublic))
    System.DebugLog("--")

    i = i + 1
Wend