过滤文本中的重复数据例程

.判断循环首 (d ≤ 列表框.取表项数 ()) ' D小于或等级列表总数据的时候就循环
.如果 (寻找文本 (记录, 列表框.取标题 (d － 1, 表项), , 假) ＝ -1)
记录 ＝ 记录 ＋ 列表框.取标题 (d － 1, 表项) ＋ #换行符
d ＝ d ＋ 1
.否则
列表框.删除表项 (d － 1)
b ＝ 列表框.取表项数 ()
.如果结束

.判断循环尾 ()
c ＝ a － b
状态条1.置文本 (3, 到文本 (c) ＋ “条重复”)
状态条1.置文本 (1, 到文本 (超级列表框1.取表项数 ()))