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

 

다차원 배열 Source

<%@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사
 
'// 일
%>

Scripting.Dictionary 컬렉션의  Source

<%@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
%>

written by Seok Kyun. Choi. 최석균.
http://www.cyworld.com/syaku
http://syaku.tistory.com