ToStringFromArray 메서드

jsonStr = objJson.ToStringFromArray(array, outputOption)

objJson

Required. JSON 오브젝트

jsonStr

String. JSON 오브젝트를 JSON 텍스트로 변환한 후 반환합니다.

array

Array. 배열을 지정합니다. 1차원 및 2차원 배열을 지원합니다.

outputOption

Long. 출력 형식 값을 지정합니다.

VBScript에서 생성된 배열을 JSON 텍스트로 변환합니다. 숫자, 문자열 등을 담을 수 있는 일반적인 배열뿐만 아니라 JSON 오브젝트를 배열에 담아 변환할 수 있습니다. 최대 2차원 배열까지 사용할 수 있으며 배열 인덱스는 0부터 시작됩니다.

outputOption는 JSON 텍스트 출력 방식을 결정하는 변수로 0을 지정할 경우 WS 문자가 포함되지 않은 문자열을 출력합니다. 1을 지정할 경우 프로퍼티 마다 줄 바꿈 문자를 추가해 보다 읽기 편하게 출력합니다. 테스트 및 디버깅 목적으로 사용할 수 있습니다.

배열을 선언한 후 JSON 텍스트로 변환하는 예제입니다.

Dim json
Set json = Server.CreateObject("TABS.JSON")

'2차원 배열을 정의한다.
Dim v(1, 2)
v(0,0) = 0
v(0,1) = 1
v(0,2) = 2
v(1,0) = 3
v(1,1) = 4
v(1,2) = 5

'배열을 JSON 텍스트로 변환한다.
Response.Write json.ToStringFromArray(v, 0)

결과:

[[0,1,2],[3,4,5]]

JSON 오브젝트를 배열에 담아 JSON 텍스트로 변환하는 예제입니다.

Dim json, persons(2)
Set json = Server.CreateObject("TABS.JSON")

'JSON 오브젝트를 생성한 후 배열에 추가한다.
For I = 0 To 2
    Set person = Server.CreateObject("TABS.JSON")
    person("name") = "홍길동" & I
    person("age") = 20 + I
    Set persons(I) = person
Next

'배열을 JSON 텍스트로 변환한다.
Response.Write json.ToStringFromArray(persons, 0)

결과:

[{"name":"홍길동0","age":20},{"name":"홍길동1","age":21},{"name":"홍길동2","age":22}]