配列の値からインデックス値を求めるスクリプトです。
関数フレームに記述して使ってください。
//配列のindexを返す
get_ar_ret_1 = "";
tmp = eval( get_ar_args_index add get_ar_args_name );
if( mblength( tmp ) > 0 ) {
tmp_cnt = 1;
for( n = 1; n < mblength( tmp ); n ++ ){
if( mbsubstring( tmp, n, 1 ) eq "/" ){
if( get_ar_ret_1 eq get_ar_args_node ) {
get_ar_ret_1 = tmp_cnt;
break;
}
tmp_cnt ++;
get_ar_ret_1 = "";
} else {
get_ar_ret_1 = get_ar_ret_1 add mbsubstring( tmp, n, 1 );
}
}
}
使用例
ar_1="26/57/25/56/26/57/27/58/29/59/30/60/22/"; //配列変数名 get_ar_args_index = "ar_"; //1次元目のインデックス get_ar_args_name = 1; //2時限目のインデックス get_ar_args_node = 30; call( "get_ar" ); //結果取得 ret = get_ar_ret_1;