(VBScript) Load JSON Data at Path

Demonstrates how to load JSON data into a path within a JSON database. For example, we begin with this JSON:

{
  "a": 1,
  "b": 2,
  "c": {
    "x": 1,
    "y": 2
  }
}

{
  "a": 1,
  "b": 2,
  "c": {
    "mm": 11,
    "nn": 22
  }
}

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)

' Demonstrates how to load replace the data at a location within a JSON database.

p = "{""a"": 1, ""b"": 2, ""c"": { ""x"": 1, ""y"": 2 } }"

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = json.Load(p)
json.EmitCompact = 0
outFile.WriteLine(json.Emit())

q = "{""mm"": 11, ""nn"": 22}"

' c is a Chilkat.JsonObject
Set c = json.ObjectOf("c")
success = c.Load(q)

' See that x and y are replaced with mm and nn.
outFile.WriteLine(json.Emit())

outFile.Close