(VB.NET UWP/WinRT) JSON: Access Array Values

Demonstrates how to access values in a JSON array.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

Dim json As New Chilkat.JsonObject

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

Dim success As Boolean = json.Load(jsonStr)
If (success <> True) Then
    Debug.WriteLine(json.LastErrorText)
    Exit Sub
End If


' Get the "tags" array, which contains "home", 22, "green"
Dim tagsArray As Chilkat.JsonArray = json.ArrayOf("tags")
If (json.LastMethodSuccess = False) Then
    Debug.WriteLine("tags member not found.")
    Exit Sub
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 Integer = tagsArray.Size
Dim i As Integer
For i = 0 To arraySize - 1

    Dim sValue As String = tagsArray.StringAt(i)

    Debug.WriteLine("[" & i & "] = " & sValue)

    Dim iValue As Integer = tagsArray.IntAt(i)
    Debug.WriteLine("[" & 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