Question

易语言点击按钮 删除数据库重复内容 易语言自带EDB数据库

Answer 1

.版本 2

.子程序 __启动窗口_创建完毕
.局部变量 字段, 字段信息, , "1"
.局部变量 文本组, 文本型, , "0"
.局部变量 文本, 文本型
.局部变量 计次, 整数型

.如果真 (文件是否存在 (取运行目录 () ＋ “\1.edb”) ＝ 假)
字段 [1].名称 ＝ “内容”
字段 [1].类型 ＝ #文本型
字段 [1].最大文本长度 ＝ 20
创建 (取运行目录 () ＋ “\1.edb”, 字段)
.如果真结束
打开 (取运行目录 () ＋ “\1.edb”, , , , , , )
到首记录 ()
.计次循环首 (取记录数 (), )
文本 ＝ 读 (“内容”)
.计次循环首 (取数组成员数 (文本组), 计次)
.如果真 (文本组 [计次] ＝ 文本)
跳出循环 ()
.如果真结束

.计次循环尾 ()
.如果真 (计次 ＞ 取数组成员数 (文本组))
加入成员 (文本组, 文本)
.如果真结束
跳过 ()
.计次循环尾 ()
清空 ()
.计次循环首 (取数组成员数 (文本组), 计次)
加记录 (文本组 [计次])
.计次循环尾 ()
关闭 ()