1. 配列

配列の上限値（最大インデックス）を返します。arraynameに上限値を求める配列の名前、dimensionに上限値を求める配列の次元を指定します。

構文

1. Integer = UBound( arrayname, dimension )

引数

arrayname （#array）必須

上限値を求める配列の名前

dimension （Integer = 1）省略可

返す次元を示す整数

戻り値

配列の上限値

プログラム

解説

2行目

UWSC

Copy

arraynameの右側にdimensionの数値から1を引いた数だけ[0]を繰り返した文字列を結合し、RESIZE関数の引数として渡します。一次元目の上限値はRESIZE(arrayname)、二次元目の上限値はRESIZE(arrayname[0])、三次元目の上限値はRESIZE(arrayname[0][0])で求められます。EVAL関数で文字列で書かれた式を実行することができます。

UBound関数とは

UBound関数 (自作関数)とは引数に指定した配列で使用できる最大のインデックス番号を返す関数で、配列を扱う場面ではよく使う関数です。

UBoundはUpper（上の）とBound（限界）で上限値を意味しています。

配列の上限値は以下の式から求めることができます。

使い方

一次元配列の上限値を求める

一次元配列arrayの上限値を求めます。DIM 配列名[値]で宣言した場合UBound関数 (自作関数)が返す値は、宣言時に指定した値に等しくなります。

結果

プレーンテキスト

Copy5

宣言した配列の次元より一つ大きい次元を指定した場合、上限値は-1を返します。それ以降の次元はエラーを返します。

結果

プレーンテキスト

Copy5 -1

多次元配列の上限値を求める

arrayの一次元目と二次元目の上限値を求めます。一次元目を求める場合、第二引数の1は省略することができます。

結果

プレーンテキスト

Copy5 8

SAFEARRAY関数 (スクリプト関数)で生成した二次元配列の一次元目と二次元目の上限値を求めます。第二引数が一次元目の上限値、第四引数が二次元目の上限値なのでその値が返ります。

結果

プレーンテキスト

Copy5 9

プログラム実行例

フォルダ内のファイルを更新日時でソートする

結果

プレーンテキスト

CopyUDebug.chm 2014/05/11 1:58 RecIE.chm 2014/05/11 1:58 Uws2Exe.chm 2015/08/13 16:12 RecUws.dll 2016/03/25 4:57 UWSC.exe 2016/10/15 13:33 Uws2Exe.exe 2016/10/15 13:34 RecIE.exe 2016/10/15 13:35 UDebug.exe 2016/10/15 13:37 XRef.exe 2016/10/15 13:38 Readme.txt 2016/10/15 13:39 uwsc.chm 2016/10/15 13:41 unins000.exe 2018/06/27 12:48 unins000.dat 2018/06/27 12:49

使用関数

CREATEOLEOBJ関数 (スクリプト関数)(1)

COMオブジェクトを生成します。

Shell.NameSpace メソッド(2)

指定されたフォルダのFolder2 オブジェクトを作成して返します。

フォルダ内のアイテムのコレクションを表すFolderItems オブジェクトを取得します。

Folder.GetDetailsOf メソッド (Shell)(8,18,19)

フォルダ内のアイテムに関する詳細を取得します。

コレクションに含まれる要素の数を取得します。

FolderItems.Item メソッド (Shell)(16)

コレクション内の指定されたアイテムのFolderItem オブジェクトを取得します。

アイテムがフォルダかを示すブール値を返します。

dateValue関数 (自作関数)(21)

日付形式の文字列をシリアル値に変換します。

timeValue関数(21)

指定した時間のシリアル値を求める。

QSORT関数 (スクリプト関数)(24)

配列の中身をソートします。

UBound関数 (自作関数)(26)

配列の上限値（最大インデックス）を求めます。arraynameに配列の名前、dimensionに上限値を求める配列の次元を指定します。

テキストファイルの内容を行毎にソートして出力する

UWSC

CopyDIM FID = FOPEN("D:\Documents\sample.txt", F_READ) DIM array[-1] FOR i = 1 TO FGET(FID, F_LINECOUNT) arrayPush(array, FGET(FiD, i)) NEXT FCLOSE(FID) QSORT(array, QSRT_A) FOR i = 0 TO UBound(array) PRINT array[i] NEXT ////////////////////////////////////////////////// // 【引数】 // 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

使用関数

FOPEN関数(1)

テキストファイルを開き、ファイルIDを取得します。

FGET関数(4,5)

テキストファイルの読み込みを行います。

arrayPush関数 (自作関数)(5)

配列の末尾に要素を追加します。

FCLOSE関数(8)

テキストファイルを閉じます。

QSORT関数 (スクリプト関数)(10)

配列の中身をソートします。

UBound関数 (自作関数)(12)

配列の上限値（最大インデックス）を求めます。arraynameに配列の名前、dimensionに上限値を求める配列の次元を指定します。

テキストファイルの内容を行毎にソートして書き換える

UWSC

CopyDIM FID = FOPEN("D:\Documents\sample.txt", F_READ OR F_WRITE) DIM array[-1] FOR i = 1 TO FGET(FID, F_LINECOUNT) arrayPush(array, FGET(FiD, i)) NEXT QSORT(array, QSRT_A) FPUT(FID, "", F_ALLTEXT) FOR i = 0 TO UBound(array) FPUT(FID, array[i], i + 1) NEXT FCLOSE(FID) ////////////////////////////////////////////////// // 【引数】 // 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

使用関数

FOPEN関数(1)

テキストファイルを開き、ファイルIDを取得します。

FGET関数(4)

テキストファイルの読み込みを行います。

arrayPush関数 (自作関数)(5)

配列の末尾に要素を追加します。

QSORT関数 (スクリプト関数)(8)

配列の中身をソートします。

FPUT関数 (スクリプト関数)(10,13)

テキストファイルの書き込みを行います。

UBound関数 (自作関数)(12)

配列の上限値（最大インデックス）を求めます。arraynameに配列の名前、dimensionに上限値を求める配列の次元を指定します。

FCLOSE関数(16)

テキストファイルを閉じます。

関連記事

CALCARRAY関数 (スクリプト関数)

配列データを計算します。

GETALLWIN関数 (スクリプト関数)

全ウィンドウのIDを取得します。

GETOLEITEM関数 (スクリプト関数)

コレクションを取得します。

JOIN関数 (スクリプト関数)

配列の中身を区切り文字で結合し、文字列として返します。

QSORT関数 (スクリプト関数)

配列の中身をソートします。

SETCLEAR関数 (スクリプト関数)

配列を指定された値で埋めます。

SHIFTARRAY関数 (スクリプト関数)

配列データをシフトします。

連想配列

連想配列とは、自動的に割り当てられる数字をキーとして持つかわりに、自由に任意の文字列を割り振ることができる配列のことです。添え字に番号の変わりに名前をつけることでわかりやすく管理することができます。

LENGTH関数 (スクリプト関数)

文字数もしくは配列サイズを返します。

POPUPMENU関数 (スクリプト関数)

ポップアップメニューを表示します。