arrayValues

構文
arrayValues( vararr )
引数
arr
戻値

プログラム

////////////////////////////////////////////////// // 【引数】 // arr // 【戻値】 // ////////////////////////////////////////////////// PROCEDURE arrayValues(var arr[]) DIM tmp[-1] FOR n = 0 TO UBound(arr) IF arr[n] <> EMPTY THEN arrayPush(tmp, arr[n]) NEXT RESIZE(arr, UBound(tmp)) FOR n = 0 TO UBound(tmp) arr[n] = tmp[n] NEXT FEND ////////////////////////////////////////////////// // 【引数】 // array : 要素を追加する配列(参照引数) // str : 追加する要素 // 【戻値】 // 処理後の配列の中の要素の数 ////////////////////////////////////////////////// FUNCTION arrayPush(var arr[], str) DIM res = RESIZE(arr, UBound(arr) + 1) arr[res] = str RESULT = res + 1 FEND ////////////////////////////////////////////////// // 【引数】 // 配列 : 上限値を求める配列 // 【戻値】 // 配列の上限値 ////////////////////////////////////////////////// FUNCTION UBound(array[]) RESULT = RESIZE(array) FEND

この記事は役に立ちましたか?
役に立った 役に立たなかった