다차원 배열(Array) 과 컬렉션 (Scripting.Dictionary) 사용 예제

- Source : 다차원 배열 사용법

<%@LANGUAGE="VBSCRIPT!"%>

 

<%Option Explicit%>

 

<%

Dim Ar,key

 

' 2차배열

Ar = Array( _

              Array("1","일"), _

              Array("2","이"), _

              Array("3","삼"), _

              Array("4","사") )            

 

for each key in Ar

           response.write key(0) & key(1) & "<br>"

next

 

response.write "<br>" & Ar(0)(1)

 

%>

 

'// 결과

1일

2이

3삼

4사

 

일

- Source : 컬렉션을 이용한 동적 배열 사용법

 

<%@LANGUAGE="VBSCRIPT!"%>

 

<%Option Explicit%>

 

<%

Dim Dic

Set Dic = Server.CreateObject("Scripting.Dictionary")

 

Dim Ar

Ar = Array( _

              Array("A","일"), _

              Array("2","이"), _

              Array("3","삼"), _

              Array("4","사") )

 

Sub SetArray (DicAr)

           Dim temp

          

           If IsArray(DicAr) Then

                     For Each temp in DicAr

                                Dic.Add temp(0), temp(1)

                     Next

           End If

End Sub

 

Call SetArray(Ar)

 

response.write Dic.item("A")

 

'## Scripting.Dictionary 사용 예제 ##

 

' 컬렉션 존재 유무

If Dic.Exists("Syaku") Then

           response.wirte "존재"

End If

 

' 컬렉션 추가

Dic.add "Syaku","샤쿠"

 

' 컬렉션 추출

response.write Dic.item("Syaku")

 

' 컬렉션 key 변경

Dic.key("Syaku") = "blog"

 

' 컬렉션 값 변경

Dic.item("blog") = "블로그"

 

' 컬렉션 삭제

Dic.remove("blog")

 

' 컬렉션 모두 삭제

Dic.removeAll

 

 

Set Dic = Nothing

%>