去除数组问题，BUG 会重复去除 123@123.com、23@123.com

坏坏坏锄头

数组_q去重复.zip (1.22 KB, 下载次数: 8)

2013-4-24 01:04 上传

点击文件名下载附件
刚刚看到这个方法去除数组，效果不错，不过可惜有些BUg
http://bbs.125.la/thread-13641169-1-1.html

如当我的数组里有123@123.com、23@123.com、3@123.com
就会误报出现提示重复

我用文本取文本长度似乎也没实现，希望大家能帮助解决一下{:soso_e100:}

艾幻翔

试试吧[e]
.版本 2

.子程序 子程序_数组去重复
.参数 数组, 整数型, 参考 数组
.局部变量 数组成员数, 整数型
.局部变量 计次1, 整数型
.局部变量 当前位置, 整数型

.判断循环首 (真)
    数组成员数 ＝ 取数组成员数 (数组)
    当前位置 ＝ 当前位置 ＋ 1
    .如果真 (数组成员数 ≤ 当前位置)
        跳出循环 ()
    .如果真结束
    .计次循环首 (数组成员数 － 当前位置, 计次1)
        .如果真 (数组 [当前位置] ＝ 数组 [数组成员数 － 计次1 ＋ 1])
            删除成员 (数组, 数组成员数 － 计次1 ＋ 1, )
        .如果真结束

    .计次循环尾 ()
.判断循环尾 ()
[/e]

pcy1980

精易模块，有个
数组_去重复1（）
测试没用压力！