超级列表框怎么导出

heixinchengbao · 发表于 2013-9-6 03:15:08

我新手，请大家忙下忙，
怎样导出超级列表框密码正确的列表，导出格式序号----在线----密码正确谢谢大家了

Themoder · 发表于 2013-9-6 03:15:09

计次循环然后再判断就行了

heixinchengbao · 发表于 2013-9-6 03:18:13

导出格式序号----QQ号码----在线----密码正确谢谢大家了

CaiACha · 发表于 2013-9-6 06:31:44

.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量 i, 整数型
.局部变量文本, 文本型

.计次循环首 (超级列表框1.取表项数 (), i)
文本＝文本＋ “序号:” ＋超级列表框1.取标题 (i － 1, 0) ＋ “ QQ号:” ＋超级列表框1.取标题 (i － 1, 1) ＋ “ 状态:” ＋超级列表框1.取标题 (i － 1, 2) ＋ “ 密码验证:” ＋超级列表框1.取标题 (i － 1, 3) ＋ #换行符
.计次循环尾 ()
编辑框1.内容＝ “--------------------导出文本--------------------” ＋ #换行符＋文本

694336034 · 发表于 2013-9-6 07:09:58

[e]
.版本 2
.支持库 iext

.子程序 _按钮1_被单击
.局部变量计次, 整数型
.局部变量文本, 文本型
.局部变量文件名, 文本型

通用对话框1.打开 ()
通用对话框1.过滤器＝ “*.txt|*.ini”
文件名＝通用对话框1.文件名
.计次循环首 (超级列表框1.取表项数 (), 计次)
.如果真 (寻找文本 (超级列表框1.取标题 (计次－ 1, 3), “密码正确”, , 假) ≠ -1)
文本＝文本＋超级列表框1.取标题 (计次－ 1, 0) ＋ “----” ＋超级列表框1.取标题 (计次－ 1, 1) ＋ “----” ＋超级列表框1.取标题 (计次－ 1, 2) ＋ “----” ＋超级列表框1.取标题 (计次－ 1, 3) ＋ #换行符
.如果真结束

.计次循环尾 ()
写到文件 (文件名, 到字节集 (文本))
[/e]
试下，没有调试，因为你没有传上附件，自己懒得做模拟