求一个去重复文本工具，易语言应该可有做出来。

版本 2

支持库 commobj

支持库 spec

子程序 _按钮1_被单击

局部变量 数组1, 文本型, , "0"

局部变量 结果, 文本型

局部变量 i, 整数型

局部变量 启动时间, 整数型

局部变量 test, 快速文本对象

启动时间 ＝ 取启动时间 ()

test添加 (编辑框1内容)

数组1 ＝ 分割文本 (编辑框2内容, “ ”, )

计次循环首 (取数组成员数 (数组1), i)

    判断开始 (test寻找文本 (数组1 [i], , 真) ＝ -1)

        结果 ＝ 结果 ＋ 数组1 [i] ＋ “ ”

    默认

    判断结束

计次循环尾 ()

编辑框3加入文本 (结果)

调试输出 (取启动时间 () － 启动时间)

分割是按空格分割。改成你自己的分割符号。如果是逐字比较的话，就逐字分割

版本 2

程序集 窗口程序集1

程序集变量 计次, 整数型

子程序 __启动窗口_创建完毕

如果 (打开 (取运行目录 () ＋ “\表项数据edb”, , , , , , ) ＝ 假)

创建数据库 ()

否则

到首记录 ()

计次循环首 (取记录数 (), 计次)

列表框1加入项目 (读 (“表项”), 读 (“数据”))

跳过 ()

计次循环尾 ()

如果结束

子程序 _按钮1_被单击

计次循环首 (列表框1取项目数 (), 计次)

如果真 (列表框1取项目文本 (计次 － 1) ＝ 编辑框1内容)

跳出循环 ()

如果真结束

如果真 (列表框1取项目数值 (计次 － 1) ＝ 到整数 (编辑框2内容))

跳出循环 ()

如果真结束

计次循环尾 ()

如果真 (计次 ≤ 列表框1取项目数 ())

返回 ()

如果真结束

加记录 (编辑框1内容, 到整数 (编辑框2内容))

列表框1加入项目 (编辑框1内容, 到整数 (编辑框2内容))

子程序 创建数据库

局部变量 字段, 字段信息, , "2"

字段 [1]名称 ＝ “表项”

字段 [1]类型 ＝ #文本型

字段 [1]最大文本长度 ＝ 50

字段 [2]名称 ＝ “数据”

字段 [2]类型 ＝ #整数型

创建 (取运行目录 () ＋ “\表项数据edb”, 字段)

打开 (取运行目录 () ＋ “\表项数据edb”, , , , , , )

版本 2

程序集 窗口程序集1

程序集变量 号码, 文本型, , "0"

程序集变量 成员, 整数型, , "0"

程序集变量 计次, 整数型

程序集变量 数1, 整数型

程序集变量 数2, 整数型

程序集变量 数3, 整数型

子程序 __启动窗口_创建完毕

编辑框1是否允许多行 ＝ 真

编辑框2是否允许多行 ＝ 真

编辑框3是否允许多行 ＝ 真

编辑框3滚动条 ＝ 2

子程序 _按钮1_被单击

号码 ＝ 分割文本 (编辑框1内容, “，”, )

计次循环首 (取数组成员数 (号码), 计次)

加入成员 (成员, 到数值 (号码 [计次]))

计次循环尾 ()

数组排序 (成员, 真)

计次循环首 (取数组成员数 (成员), 计次)

号码 [计次] ＝ 到文本 (成员 [计次])

如果真 (取文本长度 (号码 [计次]) ＝ 1)

号码 [计次] ＝ “0” ＋ 号码 [计次]

如果真结束

编辑框2加入文本 (号码 [计次], “,”)

计次循环尾 ()

计次循环首 (取数组成员数 (号码) － 3, 计次)

变量循环首 (计次 ＋ 1, 取数组成员数 (号码), 1, 数1)

变量循环首 (数1 ＋ 1, 取数组成员数 (号码), 1, 数2)

变量循环首 (数2 ＋ 1, 取数组成员数 (号码), 1, 数3)

编辑框3加入文本 (号码 [计次], “,”, 号码 [数1], “,”, 号码 [数2], “,”, 号码 [数3], #换行符)

变量循环尾 ()

变量循环尾 ()

变量循环尾 ()

计次循环尾 ()

以上就是关于求一个去重复文本工具，易语言应该可有做出来。全部的内容，包括:求一个去重复文本工具，易语言应该可有做出来。、易语言自带数据库。用在记录列表框表项数据，在加入新表项的时候，怎么判断数据库中是否存在该记录，重复、易语言 数字组合 数组排序， 已经有个方法，但套嵌太多，运算速度慢，出现重复，请大神解决等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！