Flash Lite1.1 で配列のインデックスを求める

配列の値からインデックス値を求めるスクリプトです。
関数フレームに記述して使ってください。

//配列の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;