列表框项目写到文本！！

玩世不恭KISS

指定内容 不写出 怎么 写
[e]
.版本 2

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

[/e]

小布°

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

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

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

        .默认

        .判断结束

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

我是你亲表哥

肿么会是计次+1呢

SalHe

[e]
.版本 2

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

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

[/e]

Hoibben

加个变量吧，直接复制进去即可。。。

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

复制代码

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

SalHe

[e]
.版本 2

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

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

[/e]

小布°

看懂了吧。。。