超级列表框去重复问题

369063044 · 发表于 2014-11-9 19:58:25

要求在软件里.zip (177.44 KB, 下载次数: 25)

剩下我de孩子气 · 发表于 2014-11-9 19:58:26

.版本 2
.支持库 iext

.子程序清除重复IP
.局部变量 i, 整数型
.局部变量 jl, 整数型
.局部变量没有重复的文本, 文本型
.局部变量列表框标题, 整数型, , "0"

i ＝ 1
.判断循环首 (i ≤ 列表_代理.取表项数 ())
.判断开始 (寻找文本 (没有重复的文本, 列表_代理.取标题 (i － 1, 1) ＋ “:” ＋列表_代理.取标题 (i － 1, 2), , 假) ＝ -1)
      没有重复的文本＝没有重复的文本＋列表_代理.取标题 (i － 1, 1) ＋ “:” ＋列表_代理.取标题 (i － 1, 2) ＋ #换行符  ' 没有重复的文本用变量来保存没有重复的表项
      i ＝ i ＋ 1  ' i+1表示循环下一个表项
.默认
      列表_代理.删除表项 (i － 1)
      i ＝ i － 1  ' 删除的时候删除的是i-1，则超级列表框表项数少了一个，这个时候必须减去一个，
      i ＝ i ＋ 1  ' 当你减去一个之后必须再加上I+1，否则会一直保存I-1的状态
      jl ＝ jl ＋ 1  ' 记录重复的文本数量
.判断结束

.判断循环尾 ()
.如果 (jl ＝ 0)
提示框 (“没有重复的代理！”)
返回 ()
.否则
提示框 (“共删除” ＋到文本 (jl) ＋ “个重复代理！”)

369063044 · 发表于 2014-11-9 19:59:34

@半夏时光

@宇智波·佐助 @素顏じ亦傾城ジ

369063044 · 发表于 2014-11-9 19:59:59

大神

三生因果伴孤灯 · 发表于 2014-11-9 20:07:03

如果真 (超级列表框1.查找表项 (正则.取子匹配文本 (i, 4), , , 1) ＝ -1)

bx ＝超级列表框1.插入表项 (, , , , , )

超级列表框1.置标题 (bx, 0, 到文本 (i))

超级列表框1.置标题 (bx, 1, 正则.取子匹配文本 (i, 1) ＋ “年” ＋正则.取子匹配文本 (i, 2) ＋ “月” ＋正则.取子匹配文本 (i, 3) ＋ “日”)

超级列表框1.置标题 (bx, 2, 正则.取子匹配文本 (i, 4))

超级列表框1.置标题 (bx, 3, 正则.取子匹配文本 (i, 5))

超级列表框1.置标题 (bx, 4, 正则.取子匹配文本 (i, 6) ＋正则.取子匹配文本 (i, 7))

超级列表框1.置标题 (bx, 5, 正则.取子匹配文本 (i, 8))
’返回-1 表示未找到，然后插入自己修改下要查找的表项

i支持库列表	支持库注释
iext	扩展界面支持库一

369063044 · 发表于 2014-11-9 20:15:27

CharmShadow 发表于 2014-11-9 20:07
[e=4].版本 2
.支持库 iext

大哥我整不行要不你帮我改下吧只要是注册ID一样的那一行整行删除

2775200186 · 发表于 2014-11-9 20:22:30

兄弟们解决下这个问题 http://bbs.125.la/thread-13755122-1-1.html

waweiggfnh · 发表于 2014-11-10 10:31:17

同求方法，去掉重复内容

剩下我de孩子气 · 发表于 2014-11-10 12:24:28

电脑里有个列子加我下Q吧晚上发你

369063044 · 发表于 2014-11-10 16:42:13

剩下我de孩子气发表于 2014-11-10 12:24
电脑里有个列子加我下Q吧晚上发你

大神我加你了求通过

		自动登录	找回密码
密码			注册

[已解决] 超级列表框去重复问题

最佳答案

评分

[已解决] 超级列表框 去重复问题

最佳答案

评分

[已解决] 超级列表框去重复问题