(Xojo Plugin) Iterate JSON where Member Names are Data Values

Demonstrates how to parse JSON where member names are not keywords, but instead are data values.

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

Dim json As New Chilkat.JsonObject

Dim success As Boolean
success = json.LoadFile("qa_data/json/valuesAsNames.json")

// Imagine we have JSON such as the following:

// {
//   "1680": {
//     "entity_id": "1680",
//     "type_id": "simple",
//     "sku": "123"
//   },
//   "1701": {
//     "entity_id": "1701",
//     "type_id": "simple",
//     "sku": "456"
//   }
// }
// 

// This presents a parsing problem because the member names, such as "1680"
// are not keywords.  Instead they are data values.  We don't know what they
// may be in advance.  

// To solve, we iterate over the members, get the name of each, ...
Dim numMembers As Int32
numMembers = json.Size
Dim i As Int32
For i = 0 To numMembers - 1

    Dim name As String
    name = json.NameAt(i)

    System.DebugLog(name + ":")
    Dim jRecord As Chilkat.JsonObject
    jRecord = json.ObjectAt(i)

    System.DebugLog("entity_id: " + jRecord.StringOf("entity_id"))
    System.DebugLog("type_id: " + jRecord.StringOf("type_id"))
    System.DebugLog("sku: " + jRecord.StringOf("sku"))

Next