(VBScript) Load a JsonArray

Demonstrates how to load a JsonArray.

Note: This example requires Chilkat v9.5.0.64 or greater.

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)

' This example requires Chilkat v9.5.0.64 or greater.

' Loading into a new JSON array is simple and straightforward.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonArray")
set a = CreateObject("Chilkat.JsonArray")
success = a.Load("[ 1,2,3,4 ]")

' Output:  [1,2,3,4]
outFile.WriteLine(a.Emit())
outFile.WriteLine("--------")

' The JsonArray's Load and LoadSb methods have a peculiar behavior when
' it is already part of a JSON document.  In this case, the JsonArray
' becomes detached, and the original document remains unchanged.
' This is intentional due to the nature of the internal implementation.
' For example:

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = json.Load("{ ""abc"": [ 1,2,3,4 ] }")

' Output:  (json) {"abc":[1,2,3,4]}
outFile.WriteLine("(json) " & json.Emit())
outFile.WriteLine("--------")

' abc is a Chilkat.JsonArray
Set abc = json.ArrayOf("abc")
' When Load is called, abc becomes it's own document, and the original is not modified.
success = abc.Load("[ 5,6,7,8 ]")

' Output: (abc) [5,6,7,8]
outFile.WriteLine("(abc) " & abc.Emit())
outFile.WriteLine("--------")

' Output: (json) {"abc":[1,2,3,4]}
outFile.WriteLine("(json) " & json.Emit())
outFile.WriteLine("--------")


outFile.Close