查看完整版本: [-- 易语言清除文本型数组中相同成员 --]

APlayer 开发者论坛 -> APlayer 讨论区 -> 易语言清除文本型数组中相同成员 [打印本页] 登录 -> 注册 -> 回复主题 -> 发表主题

oloooo 2017-01-12 11:32

易语言清除文本型数组中相同成员


.版本 2

.子程序 清除数组相同成员, 逻辑型
.参数 数组, 文本型, 数组, 需要清除的数组
.参数 lss, 文本型, 数组, 需要接收的数组
.局部变量 ls, 文本型, , "0"
.局部变量 TU, 整数型
.局部变量 TI, 整数型
.局部变量 dl, 整数型
.局部变量 计次, 整数型
.局部变量 LI, 整数型, , "0"

清除数组 (ls)
清除数组 (LI)
ls = 数组
TI = 0
dl = 0
TU = 0
.判断循环首 (TU ≠ 取数组成员数 (ls))
    TU = TU + 1
    .判断开始 (TU ≠ 取数组成员数 (ls))
        .判断循环首 (TI ≠ 取数组成员数 (ls))
            TI = TI + 1
            .判断开始 (TI = 取数组成员数 (ls) 且 TU = TI)
                dl = 1
            .默认
                .如果真 (TU = TI)
                    TI = TI + 1
                .如果真结束

            .判断结束

            .如果真 (ls [TU] = ls [TI] 且 dl ≠ 1)

                加入成员 (LI, TI)
            .如果真结束

        .判断循环尾 ()
        .计次循环首 (取数组成员数 (LI), 计次)
            删除成员 (ls, LI [取数组成员数 (LI) - 计次 + 1], )
            .判断开始 (计次 = 取数组成员数 (LI))
                清除数组 (LI)
            .默认

            .判断结束

        .计次循环尾 ()
    .默认

    .判断结束

    TI = 0
.判断循环尾 ()
lss = ls
返回 (真)


自己写的在俺的电脑上测试没问题       喜欢的各位可以试试

cui19951005 2017-01-12 21:32
学习啦


查看完整版本: [-- 易语言清除文本型数组中相同成员 --] [-- top --]


Powered by phpwind v8.7 Code ©2003-2011 phpwind
Time 0.006846 second(s),query:0 Gzip enabled