(VBScript) Firebase JSON Put and Patch

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

json1 = "{""a"": 1, ""b"": 2}"

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")

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

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

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

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

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

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

success = 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}}}
outFile.WriteLine("6) " & json.Emit())

outFile.Close