(VBScript) JSON AddObjectCopyAt Example

Demonstrates the AddObjectCopyAt function.

Note: This example requires Chilkat v9.5.0.82 or above.

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)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = json.Load("{ ""name"": ""John"", ""marbles"": 100 }")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json2 = CreateObject("Chilkat.JsonObject")
success = json2.Load("{""street"":""1200 Elm St."",""city"":""Springfield"",""zip"":60606}")

' Copy the contents of json2 to a new member object named "addr".
' Insert it in the 2nd position.
success = json.AddObjectCopyAt(1,"addr",json2)

outFile.WriteLine(json.Emit())
' Expected output is:  {"name":"John","addr":{"street":"1200 Elm St.","city":"Springfield","zip":60606},"marbles":100}

' Note: Modifying the contents of json does not modify the contents of json2 (because the contents of json2 were copied).
' For example:
success = json.UpdateString("addr.street","1000 Oak St.")
outFile.WriteLine(json.Emit())
' Expected output is:  {"name":"John","addr":{"street":"1000 Oak St.","city":"Springfield","zip":60606},"marbles":100}

outFile.WriteLine(json2.Emit())
' Expected output is: {"street":"1200 Elm St.","city":"Springfield","zip":60606}

outFile.Close