# 배열
<%@LANGUAGE="VBSCRIPT" CODEPAGE="949"%>
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><?XML:NAMESPACE PREFIX = O />
<%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)
%> |
# 결과
# 동적 배열처럼 사용하기 (컬렉션을 이용함)
<%@LANGUAGE="VBSCRIPT" CODEPAGE="949"%>
<%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
%>
|