(VB.NET UWP/WinRT) Firebase JSON Put and Patch

Demonstrates how to apply Firebase put and patch events to a JSON database.

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

Dim json1 As String = "{""a"": 1, ""b"": 2}"

Dim json As New Chilkat.JsonObject

' Use Firebase delimiters for JSON paths.
json.DelimiterChar = "/"

json.Load(json1)
json.FirebasePut("/c","{""foo"": true, ""bar"": false}")
' Output should be: {"a":1,"b":2,"c":{"foo":true,"bar":false}}
Debug.WriteLine("1) " & json.Emit())

json.FirebasePut("/c","""hello world""")
' Output should be: {"a":1,"b":2,"c":"hello world"}
Debug.WriteLine("2) " & json.Emit())

json.FirebasePut("/c","{""foo"": ""abc"", ""bar"": 123}")
' Output should be: {"a":1,"b":2,"c":{"foo":"abc","bar":123}}
Debug.WriteLine("3) " & json.Emit())

' Back to the original..
json.FirebasePut("/","{""a"": 1, ""b"": 2}")
Debug.WriteLine("4) " & json.Emit())

json.FirebasePut("/c","{""foo"": true, ""bar"": false}")
json.FirebasePatch("/c","{""foo"": 3, ""baz"": 4}")
' Output should be: {"a":1,"b":2,"c":{"foo":3,"bar":false,"baz":4}}
Debug.WriteLine("5) " & json.Emit())

json.FirebasePatch("/c","{""foo"": ""abc123"", ""baz"": {""foo"": true, ""bar"": false}, ""bax"": {""foo"": 200, ""bar"": 400} }")
' Output should be: {"a":1,"b":2,"c":{"foo":"abc123","bar":false,"baz":{"foo":true,"bar":false},"bax":{"foo":200,"bar":400}}}
Debug.WriteLine("6) " & json.Emit())