arrayUnshift関数

本ページには広告が含まれています。

arrayの先頭に指定された要素を加えます。リストの要素は全体として加えられるため、加えた要素の順番は変わりません。

配列の末尾に要素を追加するにはarrayPush関数 (自作関数)を使います。

構文

Double = arrayUnshift( array, value1, …, value16 )

引数

array 必須: 要素を加えられる配列
values 必須: 加える値をvalue1から順に指定

戻り値: 処理後の配列の要素の数

プログラム

//////////////////////////////////////////////////
// 【引数】
//   array : 要素を加えられる配列
//   values : 加える値をvalue1から順に指定
// 【戻り値】
//   処理後の配列の要素の数
//////////////////////////////////////////////////
FUNCTION arrayUnshift(var array[], value1 = EMPTY, value2 = EMPTY, value3 = EMPTY, value4 = EMPTY, value5 = EMPTY, value6 = EMPTY, value7 = EMPTY, value8 = EMPTY, value9 = EMPTY, value10 = EMPTY, value11 = EMPTY, value12 = EMPTY, value13 = EMPTY, value14 = EMPTY, value15 = EMPTY, value16 = EMPTY)
	DIM tmp[-1]
	DIM i = 1
	WHILE EVAL("value" + i) <> EMPTY
		arrayPush(tmp, EVAL("value" + i))
		i = i + 1
	WEND
	arrayMerge(tmp, array)
	RESIZE(array, UBound(tmp))
	SETCLEAR(array, EMPTY)
	FOR i = 0 TO UBound(tmp)
		array[i] = tmp[i]
	NEXT
	RESULT = LENGTH(array)
FEND

//////////////////////////////////////////////////
// 【引数】
//   arr : 追加される配列（参照引数）
//   tmp : 追加する配列
// 【戻り値】
//   追加した後の配列の要素数
//////////////////////////////////////////////////
FUNCTION arrayMerge(Var arr[], tmp[])
	FOR n = 0 TO UBound(tmp)
		arrayPush(arr, tmp[n])
	NEXT
	RESULT = UBound(arr)
FEND

//////////////////////////////////////////////////
// 【引数】
//   array : 要素を追加する配列（参照引数）
//   values : 追加する要素をvalue1から指定
// 【戻り値】
//   処理後の配列の要素の数
//////////////////////////////////////////////////
FUNCTION arrayPush(var array[], value1 = EMPTY, value2 = EMPTY, value3 = EMPTY, value4 = EMPTY, value5 = EMPTY, value6 = EMPTY, value7 = EMPTY, value8 = EMPTY, value9 = EMPTY, value10 = EMPTY, value11 = EMPTY, value12 = EMPTY, value13 = EMPTY, value14 = EMPTY, value15 = EMPTY, value16 = EMPTY)
    DIM i = 1
    WHILE EVAL("value" + i) <> EMPTY
	  DIM res = RESIZE(array, UBound(array) + 1)
	  array[res] = EVAL("value" + i)
	  i = i + 1
	WEND
	RESULT = LENGTH(array)
FEND

//////////////////////////////////////////////////
// 【引数】
//   inputs : 繰り返す文字列
//   multiplier : inputsを繰り返す回数
// 【戻り値】
//   inputsをmultiplier回を繰り返した文字列を返します
//////////////////////////////////////////////////
FUNCTION strRepeat(inputs, multiplier)
	DIM res = ""
	FOR n = 1 TO multiplier
		res = res + inputs
	NEXT
	RESULT = res
FEND

//////////////////////////////////////////////////
// 【引数】
//   arrayname : 上限値を求める配列の名前
//   dimension : 返す次元を示す整数
// 【戻り値】
//   配列の上限値
//////////////////////////////////////////////////
FUNCTION UBound(arrayname[], dimension = 1)
	RESULT = EVAL("RESIZE(arrayname" + strRepeat("[0]", dimension - 1) + ")")
FEND

解説

2行目

valuesを格納するための配列。

3行目

4,7行目

value1から順にEMPTYになるまで処理を続けます。

5行目

valueのi番目の要素をtmpの末尾に追加します。

6行目

iをインクリメントします。

8行目

tmpとarrayを結合した配列をtmpに格納します。

9行目

arrayの要素数をtmpの要素数に合わせます。

10行目

arrayの要素を空にします。

11-13行目

tmpの要素をarrayに代入します。

14行目

arrayの要素数を返します。

使い方

既存の配列の先頭に要素を追加

arrayの先頭にappleを追加します。

結果

既存の配列の先頭に複数の要素を追加

arrayの先頭にappleとraspberryを追加します。

要素の追加は一つずつではなく全体で行われるので、apple、raspberryの順番は変わりません。

結果

公開日: 2022年6月16日

arrayPush関数 (自作関数): 配列の末尾に要素を追加します。
arrayRand関数 (自作関数): 一次元配列から一つの値をランダムに取得します。
isArray関数 (自作関数): 与えられた変数の型が配列型か調べる。
Worksheets.Add メソッド (Excel): 新しいワークシート、グラフシート、またはマクロシートを作成します。
small関数 (自作関数): 配列の中で小さい方から数えた順位の値を求めます。
Sheets.Add メソッド (Excel): 新しいワークシート・グラフ・またはマクロシートを作成します。新しいワークシートがアクティブシートになります。
arraySearch関数 (自作関数): 配列の中から指定した要素が見つかった場合、その要素がある最初のインデックスを返します。
Collatz関数 (自作関数): コラッツ数列を求め結果を配列で返します。
shearSort関数 (自作関数): 引数に指定された配列をシェアソートで並び替えます。
quickSort関数 (自作関数): 引数に指定された配列をクイックソートで並び替えます。