VBScript

JSON AddArrayCopyAt Example

Demonstrates the AddArrayCopyAt function.

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

VBScript

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

set json = CreateObject("Chilkat.JsonObject")
success = json.Load("{ ""name"": ""John"", ""marbles"": 100 }")

set jarr = CreateObject("Chilkat.JsonArray")
success = jarr.Load("[ 1, 2, 3, ""apple"", ""orange"", [ 10, 20, 30 ], { ""name"": ""Luther""} ]")

' Copy the contents of jar to a new array member named "stuff".
' Insert the array at the 2nd position
success = json.AddArrayCopyAt(1,"stuff",jarr)

outFile.WriteLine(json.Emit())
' Expected output is:  {"name":"John","stuff":[1,2,3,"apple","orange",[10,20,30],{"name":"Luther"}],"marbles":100}

' Note: The contents of the array were copied.
' If we modify the contents of jarr, it does not modify the array contained within "json" because it is a separate copy.
' For example:
success = jarr.AddIntAt(-1,2020)
outFile.WriteLine(jarr.Emit())
' Expected output: [1,2,3,"apple","orange",[10,20,30],{"name":"Luther"},2020]

outFile.WriteLine(json.Emit())
' Remains unchanged: {"name":"John","stuff":[1,2,3,"apple","orange",[10,20,30],{"name":"Luther"}],"marbles":100}

outFile.Close