表项数量 = 超级列表框.取表项数 ()
关键词数组 = 分割文本 (编辑框2.内容, “,”, )
.计次循环首 (表项数量, i1)
N = 表项数量 - i1
是否存在 = 假
.计次循环首 (取数组成员数 (关键词数组), i2)
.如果真 (寻找文本 (超级列表框.取标题 (N, 2), 关键词数组 [i2], 1, 假) ≠ -1)
是否存在 = 真
.如果真结束
.计次循环尾 ()
.如果真 (是否存在 = 假)
超级列表框.删除表项 (N)
.如果真结束
.计次循环尾 ()
表项数量 = 超级列表框.取表项数 ()
关键词数组 = 分割文本 (编辑框2.内容, “,”, )
.计次循环首 (表项数量, i1)
N = 表项数量 - i1
是否存在 = 假
.计次循环首 (取数组成员数 (关键词数组), i2)
.如果真 (寻找文本 (超级列表框.取标题 (N, 2), 关键词数组 [i2], 1, 假) ≠ -1)
是否存在 = 真
.如果真结束
.计次循环尾 ()
.如果真 (是否存在 = 假)
超级列表框.删除表项 (N)
.如果真结束
.计次循环尾 ()