配列の値からインデックス値を求めるスクリプトです。
関数フレームに記述して使ってください。
//配列の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;