(Xojo Plugin) JSON Iterate Members

Demonstrates how to loop over the immediate members of a JSON object.

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

Dim json As New Chilkat.JsonObject

Dim jsonStr As String
jsonStr = "{ ""id"": 1, ""name"": ""A green door"", ""tags"": [""home"", ""green""], ""price"": 125 }"

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

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)
    Dim value As String
    value = json.StringAt(i)

    System.DebugLog(name + ": " + value)

    Dim iValue As Int32
    iValue = json.IntAt(i)
    System.DebugLog(name + " as integer: " + Str(iValue))

Next

// Note: The StringAt method returns the value as a string regardless of the type.
// If the value is a JSON array (such as for ["home", "green"]), then the JSON encoding
// of the entire array is returned.

// The IntAt method returns the value as an integer.  If the value does not convert to 
// an integer, then 0 is returned