易语言冒泡排序并去重复源码

易语言冒泡排序并去重复源码

@cf2006a

.版本 2
.支持库 commobj

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

编辑框2.内容 ＝ 易去重排序 (分割文本 (编辑框1.内容, “,”, ))

.子程序 易去重排序, 文本型, , 排序用的是冒泡排序法 去重复用的是吃尾法 其实两个看上去一样
.参数 文本数组, 文本型, 参考 数组
.局部变量 i, 整数型
.局部变量 i2, 整数型
.局部变量 快速文本, 快速文本对象

.计次循环首 (取数组成员数 (文本数组), i)
    .变量循环首 (取数组成员数 (文本数组), i ＋ 1, -1, i2)
        .如果真 (到数值 (文本数组 [i2 － 1]) ＞ 到数值 (文本数组 [i2]))
            交换变量 (文本数组 [i2], 文本数组 [i2 － 1])
        .如果真结束
        .如果真 (文本数组 [i] ＝ 文本数组 [i2])
            删除成员 (文本数组, i2, )
        .如果真结束

    .变量循环尾 ()
.计次循环尾 ()
.计次循环首 (取数组成员数 (文本数组), i)
    快速文本.添加 (文本数组 [i], “,”)
.计次循环尾 ()

返回 (快速文本.取文本 (, ))