精易论坛

标题: 列表框项目写到文本！！ [打印本页]

作者: 玩世不恭KISS 时间: 2013-6-30 14:29
标题: 列表框项目写到文本！！
指定内容不写出怎么写
[e]
.版本 2

.计次循环首 (列表框.取项目数 (), 计次)
写到文件 (取运行目录 () ＋ “\抽奖信息.txt”, 到字节集 (到文本 (取现行时间 ()) ＋列表框.取项目文本 (计次＋ 1) ＋ #换行符) ＋读入文件 (取运行目录 () ＋ “\抽奖信息.txt”))
.计次循环尾 ()

[/e]

作者: 小布° 时间: 2013-6-30 14:29
[e]
.版本 2
.支持库 iext

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

.如果真 (通用对话框2.打开 ())
.计次循环首 (超级列表框_小号.取表项数 (), i)
      .判断开始 (超级列表框_小号.取标题 (i － 1, 3) ≠ “”)
         .判断开始 (超级列表框_小号.取标题 (i － 1, 2) ＝ “”)
            文本＝文本＋超级列表框_小号.取标题 (i － 1, 1) ＋ #换行符
         .默认
            文本＝文本＋超级列表框_小号.取标题 (i － 1, 1) ＋ “----” ＋超级列表框_小号.取标题 (i － 1, 2) ＋ #换行符
         .判断结束

      .默认

      .判断结束

.计次循环尾 ()
写到文件 (通用对话框2.文件名, 到字节集 (文本))
[/e]

作者: 我是你亲表哥 时间: 2013-6-30 14:31
肿么会是计次+1呢

作者: SalHe 时间: 2013-6-30 14:55
[e]
.版本 2

.局部变量文本, 文本型
.局部变量 n1, 整数型

.如果真 (通用对话框1.打开 ())
.计次循环首 (列表框1.取项目数 (), n1)
文本＝文本＋列表框1.取项目文本 (n1 － 1)
.计次循环尾 ()
写到文件 (通用对话框1.文件名, 到字节集 (文本))
.如果真结束

[/e]

作者: Hoibben 时间: 2013-6-30 14:57
加个变量吧，直接复制进去即可。。。

.版本 2
.局部变量 a, 文本型
.计次循环首 (列表框.取项目数 (), 计次)
a=a+到文本 (取现行时间 ()) ＋列表框.取项目文本 ( 计次＋ 1) ＋ #换行符
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\抽奖信息.txt”, 到字节集 (a) ＋读入文件 (取运行目录 () ＋ “\抽奖信息.txt”))

复制代码

补充内容 (2013-6-30 14:58):
写到文件移到循环外边，不然你一直循环写到文件，而且还不是全部的，望采纳。。。

作者: SalHe 时间: 2013-6-30 14:58
[e]
.版本 2

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

.如果真 (通用对话框1.打开 ())
.计次循环首 (列表框1.取项目数 (), n1)
文本＝文本＋列表框1.取项目文本 (n1 － 1) ＋ #换行符
.计次循环尾 ()
写到文件 (通用对话框1.文件名, 到字节集 (文本))
.如果真结束

[/e]

作者: 小布° 时间: 2013-7-11 11:30

看懂了吧。。。

欢迎光临精易论坛 (https://125.confly.eu.org/)