UWSC辞典

指定したサイズの配列を生成します。

SPLIT参照。

構文

SAFEARRAY( 下限, 上限, [二次元下限, 二次元上限] )

引数

下限

配列の下限を設定

上限

配列の上限を設定

二次元下限

二次元配列の下限を設定

二次元上限

二次元配列の上限を設定

戻値

作成されたSAFEARRAY型を返す

プログラム実行例

サイズ0の配列を作成

DIM arr
arr = SAFEARRAY(0, -1)

PRINT "下限<#TAB>" + LBound(arr)
PRINT "上限<#TAB>" + UBound(arr)

//////////////////////////////////////////////////
// 【引数】
//   配列 : 下限値を求める配列 
// 【戻値】
//   配列の下限値 
//////////////////////////////////////////////////
FUNCTION LBound(arr[])
	RESULT = UBound(arr) - LENGTH(arr) + 1
FEND

//////////////////////////////////////////////////
// 【引数】
//   配列 : 上限値を求める配列 
// 【戻値】
//   配列の上限値 
//////////////////////////////////////////////////
FUNCTION UBound(array[])
	RESULT = RESIZE(array)
FENDDIM arr
arr = SAFEARRAY(0, -1)

PRINT "下限<#TAB>" + LBound(arr)
PRINT "上限<#TAB>" + UBound(arr)

//////////////////////////////////////////////////
// 【引数】
//   配列 : 下限値を求める配列 
// 【戻値】
//   配列の下限値 
//////////////////////////////////////////////////
FUNCTION LBound(arr[])
	RESULT = UBound(arr) - LENGTH(arr) + 1
FEND

//////////////////////////////////////////////////
// 【引数】
//   配列 : 上限値を求める配列 
// 【戻値】
//   配列の上限値 
//////////////////////////////////////////////////
FUNCTION UBound(array[])
	RESULT = RESIZE(array)
FEND

結果

下限	0
上限	-1

一次元配列を生成

DIM arr
arr = SAFEARRAY(3, 6)

arr[3] = 40
arr[4] = 974
arr[5] = 747
arr[6] = 354

FOR item IN arr
	PRINT item
NEXTDIM arr
arr = SAFEARRAY(3, 6)

arr[3] = 40
arr[4] = 974
arr[5] = 747
arr[6] = 354

FOR item IN arr
	PRINT item
NEXT

結果

40
974
747
354