请教超级列表框怎么导出选中项啊？

shuiping5566 · 发表于 2010-11-4 23:45:12

请教超级列表框怎么导出选中项啊？

不是全部导出，比如在超级列表框里，我选中了5项（而且这5项不挨着），怎么把这5项导出到txt？

最好写个例程，谢谢了啊

wqejnyt · 发表于 2010-11-4 23:45:13

本帖最后由千年于 2012-5-30 16:16 编辑

.版本 2
.支持库 iext
.程序集窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
置随机数种子 ()
.计次循环首 (15, i)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (i － 1, 0, 到文本 (取随机数 (1111111111, 9999999999)))
.计次循环尾 ()
' 以上代码不用管他==========================
.子程序 _按钮1_被单击
.局部变量 a, 整数型, , "0"
.局部变量 i, 整数型
a ＝超级列表框1.取被选择表项 ()
.计次循环首 (取数组成员数 (a), i)
编辑框1.内容＝编辑框1.内容＋超级列表框1.取标题 (a , 0) ＋ #换行符
.计次循环尾 ()

shuiping5566 · 发表于 2010-11-5 01:03:44

在线等啊，请大家帮帮忙

exit11 · 发表于 2010-11-5 08:52:43

本帖最后由千年于 2012-5-30 16:16 编辑

.版本 2
.支持库 iext
.程序集窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 x, 整数型
.局部变量文本, 文本型
.计次循环首 (超级列表框1.取表项数 (), x)
.如果真 (超级列表框1.取当前状态图片 () ＝ 1) ' 需设置“是否有检查框”属性为真
文本＝文本＋超级列表框1.取标题 (x － 1, 0) ＋ #换行符
.如果真结束
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\test.txt”, 到字节集 (文本))

shuiping5566 · 发表于 2010-11-6 03:52:15

回复 2# wqejnyt

非常感谢

依然是海洋 · 发表于 2011-6-4 21:09:26

下载点数兑换精币比例3:1】【链接交换】【加入VIP培训】【举报骗子帖子】【有答案且楼主没有采纳你的答案的请进】

疯子的决定 · 发表于 2012-5-30 16:08:26

全看不到了！！！

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

[已解决] 请教超级列表框怎么导出选中项啊？

最佳答案