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

.版本
2
.子程序
__启动窗口_创建完毕
.局部变量
字段,
字段信息,
,
"1"
.局部变量
文本组,
文本型,
,
"0"
.局部变量
文本,
文本型
.局部变量
计次,
整数型
.如果真
(文件是否存在
(取运行目录
()
＋
“\1.edb”)
＝
假)
字段
[1].名称
＝
“内容”
字段
[1].类型
＝
#文本型
字段
[1].最大文本长度
＝
20
创建
(取运行目录
()
＋
“\1.edb”,
字段)
.如果真结束
打开
(取运行目录
()
＋
“\1.edb”,
,
,
,
,
,
)
到首记录
()
.计次循环首
(取记录数
(),
)
文本
＝
读
(“内容”)
.计次循环首
(取数组成员数
(文本组),
计次)
.如果真
(文本组
[计次]
＝
文本)
跳出循环
()
.如果真结束
.计次循环尾
()
.如果真
(计次
＞
取数组成员数
(文本组))
加入成员
(文本组,
文本)
.如果真结束
跳过
()
.计次循环尾
()
清空
()
.计次循环首
(取数组成员数
(文本组),
计次)
加记录
(文本组
[计次])
.计次循环尾
()
关闭
()