(VBScript) JSON Array 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.JsonArray")
set jarr = CreateObject("Chilkat.JsonArray")
success = jarr.Load("[ 1, 2, 3, 4]")

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

' Copy the contents of json to the array at index 2, making it the 3rd item in the array.
success = jarr.AddObjectCopyAt(2,json)

outFile.WriteLine(jarr.Emit())
' Expected output is:  [1,2,{"street":"1200 Elm St.","city":"Springfield","zip":60606},3,4]

outFile.Close