(VB.NET UWP/WinRT) JSON Iterate Members

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

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"", ""green""], ""price"": 125 }"

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


Dim numMembers As Integer = json.Size
Dim i As Integer
For i = 0 To numMembers - 1

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

    Debug.WriteLine(name & ": " & value)

    Dim iValue As Integer = json.IntAt(i)
    Debug.WriteLine(name & " as integer: " & 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