配列

1次元配列の定義

Dim

Dim ArrayData(10)

ArrayData(0) ～ ArrayData(10) が有効で、配列の最小値は、常に 0 です

動的配列

ReDim

Dim ArrayData()
Dim nCnt

nCnt = 10
ReDim ArrayData( nCnt )

ArrayData(0) ～ ArrayData(10) が有効

配列の上限を得る

UBound

Dim nCnt
Dim ArrayData(10)

nCnt = UBound( ArrayData )

使用例

Dim I
For I = 0 to UBound( ArrayData )
	Response.Write ArrayData( I ) & "<br>"
Next

配列かどうかのチェック

IsArray

if IsArray( ArrayData ) then
	For I = 0 to UBound( ArrayData )
		Response.Write ArrayData( I ) & "<br>"
	Next
else
	Response.Write "ArrayData " & "は配列ではありません"
end if

内部情報

TypeName
VarType

Dim ArrayData(10)

Response.Write TypeName( ArrayData ) & "<br>"
Response.Write VarType( ArrayData ) & "<br>"

実行結果

Variant()
8204

配列を返す関数

Split

Dim ArrayData
Dim strValue
Dim I

strValue = "A,B,C"
ArrayData = Split( strValue, "," )
if IsArray( ArrayData ) then
	For I = 0 to UBound( ArrayData )
		Response.Write ArrayData( I ) & "<br>"
	Next
end if

配列初期化

Erase

Dim ArrayData(3)
Dim DynamicArrayData()
ReDim DynamicArrayData(3)
Dim I
For I = 0 to UBound( ArrayData )
	ArrayData( I ) = I
	Response.Write ArrayData( I ) & "<br>"
Next
Erase ArrayData			--> [ ★ 静的配列は初期化される ]
For I = 0 to UBound( DynamicArrayData )
	DynamicArrayData( I ) = I
	Response.Write DynamicArrayData( I ) & "<br>"
Next
Erase DynamicArrayData		--> [ ★ 動的配列はメモリから開放される ]
ReDim DynamicArrayData(10)	--> [ ★ 再使用する場合 ]