배열과 컬렉션 Array Scripting.Dictionary

다차원 배열

<%@LANGUAGE="VBSCRIPT"%>

<%Option Explicit%>

<%

'// programmed by 최석균

'// http://www.cyworld.com/syaku

'// http://syaku.tistory.com

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사

 

'// 일

%>

컬렉션

<%@LANGUAGE="VBSCRIPT"%>

<%Option Explicit%>

<%

'// programmed by 최석균

'// http://www.cyworld.com/syaku

'// http://syaku.tistory.com

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

%>