B4X

JSON: Access Array Values

See more JSON Examples

Demonstrates how to access values in a JSON array. B4X

Dim success As Boolean = False

Dim json As ChilkatJsonObject
json.Initialize

Dim jsonStr As String = "{ " & Chr(34) & "id" & Chr(34) & ": 1, " & Chr(34) & "name" & Chr(34) & ": " & Chr(34) & "A green door" & Chr(34) & ", " & Chr(34) & "tags" & Chr(34) & ": [" & Chr(34) & "home" & Chr(34) & ", 22, " & Chr(34) & "green" & Chr(34) & "], " & Chr(34) & "price" & Chr(34) & ": 125 }"

success = json.Load(jsonStr)
If success <> True Then
    Log(json.LastErrorText)
    Return
End If


'  Get the "tags" array, which contains "home", 22, "green"
Dim tagsArray As ChilkatJsonArray = json.ArrayOf("tags")
If json.LastMethodSuccess = False Then
    Log("tags member not found.")
    Return
End If


'  Get the value at each array index. 
'  Output will be:
'  [0] = home
'  [0] as integer = 0
'  [1] = 22
'  [1] as integer = 22
'  [2] = green
'  [2] as integer = 0

Dim arraySize As Int = tagsArray.Size
Dim i As Int
For i = 0 To arraySize - 1

    Dim sValue As String = tagsArray.StringAt(i)

    Log("[" & i & "] = " & sValue)

    Dim iValue As Int = tagsArray.IntAt(i)
    Log("[" & i & "] as integer = " & iValue)

Next



'  Note: The StringAt method returns the value as a string regardless of the type.

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