Public Sub testJson
Dim sJson As String = $"[{"Monday": 2, "Thursday": 5, "Friday": 6, "Sunday": 1, "Wednesday": 4, "Tuesday": 3, "Saturday": 7 }"$
Log(IsValidJSON(sJson))
Dim sJson As String = $"[{"Monday": 2, "Thursday": 5, "Friday": 6, "Sunday": 1, "Wednesday": 4, "Tuesday": 3, "Saturday": 7 }]"$
Log(IsValidJSON(sJson))
Dim sJson As String = $"{"Monday": 2, "Thursday": 5, "Friday": 6, "Sunday": 1, "Wednesday": 4, "Tuesday": 3, "Saturday": 7 }"$
Log(IsValidJSON(sJson))
Dim sJson As String = $"{}"$
Log(IsValidJSON(sJson))
Dim sJson As String = $"[]"$
Log(IsValidJSON(sJson))
Dim sJson As String = $"[dsdsdsd:]"$
Log(IsValidJSON(sJson))
Dim sJson As String = $"{dsdsd}"$
Log(IsValidJSON(sJson))
Dim sJson As String = $""$
Log(IsValidJSON(sJson))
Dim sJson As String = Null
Log(IsValidJSON(sJson))
Dim sJson As String = $"null"$
Log(IsValidJSON(sJson))
End Sub