flash lite1.1 ： 在以逗号分隔的一组字符串中随机抽取不重复的字符

 stop();
bean_name = "1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,";
//需要抽取的字符个数，要小于等于commaCount2
count = 15;
for (i=1; i<=length(bean_name); i++) {
    //取得逗号个数 也就是取得需要分割的字符的个数
    if (substring(bean_name, i, 1) === ",") {
        commaCount2++;
    }
}
call("init");
for (k=0; k<commaCount2; k++) {
    //清空字符串
    bean_name = "";
    t = random(commaCount);
    for (m=0; m<commaCount; m++) {
        if (commaCount<>1) {
            //字符个数大于1
            if (eval("new" add m)<>eval("new" add t)) {
                bean_name = bean_name add eval("new" add m);
                //去掉逗号，得到最终结果
                eval("random" add k) = substring(eval("new" add t), 0, length(eval("new" add t))-1);
                eval("re" add (k+1)) = eval("random" add k);
            }
            //trace(bean_name1 add "剩余字符" add m add"--------");                               
        } else {
            //字符个数等于1只剩下一个字符，并去掉逗号
            eval("random" add (commaCount2-1)) = substring(eval("new" add 0), 0, length(eval("new" add 0))-1);
        }
    }
    call("init");
    trace( "第" add k add "次随机抽取" add eval("random" add k));
}
for (k=0; k<count; k++) {
//显示结果
    trace(eval("random" add k) );
}

//****************以下为 init帧中的代码 ，在flash lite1.1中使用字符串模拟 数组

//逗号个数
commaCount = 0;
h0 = 0;
trace(bean_name);
//提取逗号在字符串中的位置
for (i=1; i<=length(bean_name); i++) {
    //根据逗号位置拆分字符串，需要先求出逗号的个数，也就是要拆分的字符的个数
    if (substring(bean_name, i, 1) === ",") {
        commaCount++;
        eval("h" add commaCount) = i;
        //trace(commaCount add "----" add eval("h" add commaCount));
    }
}
for (j=0; j<commaCount; j++) {
    //根据逗号位置拆分字符串
    eval("new" add j) = substring(bean_name, eval("h" add j)+1, eval("h" add (j+1))-eval("h" add j));
}