(VB.NET UWP/WinRT) Check if Integer Exists at JSON Path

Demonstrates how to get an integer value at a JSON path, and how to check to see if it exists.

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

Dim json As New Chilkat.JsonObject
Dim success As Boolean

' First build simple JSON..
json.UpdateInt("test.abc",100)

json.EmitCompact = False
Debug.WriteLine(json.Emit())

' This is our JSON:
' {
'   "test": {
'     "abc": 100,
'   }
' }

Dim path As String = "test.notHere"

' The call to IntOf will return 0, because it's not present.
' But how do we know if it really was present, and the value was truly 0?
Dim val As Integer = json.IntOf(path)
Debug.WriteLine("val = " & val)

' We cannot use LastMethodSuccess because LastMethodSuccess only applies
' to methods that:
' - return a string
' - return a new Chilkat object, binary bytes, or a date/time.
' - returns a boolean status where True = success and False = failed.
' - returns an integer where failure is defined by a return value less than zero.
' The IntOf method fits none of these requirements, and therefore the LastMethodSuccess 
' is not a valid indicator..
Dim wasFound As Boolean = json.LastMethodSuccess
Debug.WriteLine("wasFound = " & wasFound & " (not a valid indicator)")

' Instead, if the returned value is 0, we can double-check to see if the member was truly there..
If (val = 0) Then
    wasFound = json.HasMember(path)
    Debug.WriteLine("wasFound = " & wasFound)
    If (wasFound = True) Then
        Debug.WriteLine("The value was present and is 0.")
    Else
        Debug.WriteLine("no member is present at test.notHere")
    End If

Else
    Debug.WriteLine("val = " & val)
End If


' Alternatively, you could check to see if the member exists beforehand..
If (json.HasMember(path) = True) Then
    Debug.WriteLine("val = " & json.IntOf(path))
Else
    Debug.WriteLine("no member at " & path)
End If