Question

易语言怎么做列表框项目保存和读取?

易语言怎么做列表框项目保存和读取?就是有一个列表框,在窗口关闭前(我会在哪里写代码)保存列表框的所有项目,到窗口再次打开时就再读取出来.就行了..百度上我搜索过了.
.版本 2

.局部变量 文件号, 整数型

文件号 ＝ 打开文件 (“C:\XM.Dat”, 4, )
写出字节集 (文件号, 选择列表框1.列表项目)
关闭文件 (文件号)

.版本 2

.局部变量 文件号, 整数型

文件号 ＝ 打开文件 (“C:\XM.Dat”, 1, )
选择列表框1.列表项目 ＝ 读入字节集 (文件号, 取文件长度 (文件号))
输出调试文本 (取文件长度 (文件号))
关闭文件 (文件号)

这段代码不行.;求另外的代码.!!!

Answer 1

前几天写的一个自动读取保存列表，稍改一下就行了

.版本 2
.支持库 iext
.支持库 dp1

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕
.局部变量 临时数据, 文本型
.局部变量 临时数组, 文本型, , "0"
.局部变量 循环次数, 整数型
.局部变量 局部_计次, 整数型

.如果 (文件是否存在 (取运行目录 () ＋ “\revert.dat”) ＝ 真)
超级列表框1.全部删除 ()
临时数据 ＝ 到文本 (解密数据 (读入文件 (取运行目录 () ＋ “\revert.dat”), “mmc”, 2))
临时数组 ＝ 分割文本 (临时数据, #换行符, )
循环次数 ＝ 取数组成员数 (临时数组)
.计次循环首 (取数组成员数 (临时数组), 局部_计次)
超级列表框1.插入表项 (0, 临时数组 [局部_计次], , , , )
.计次循环尾 ()
刷新显示 ()

.否则
信息框 (“载入预配置文档失败！软件退出后将重新建立文档(revert.dat)，请勿删除！”, 64, “信息提示”)
.如果结束

.子程序 __启动窗口_将被销毁
.局部变量 循环次数, 整数型
.局部变量 n, 整数型
.局部变量 临时数据, 文本型
.局部变量 最终数据, 字节集

循环次数 ＝ 超级列表框1.取表项数 ()
临时数据 ＝ “”
.计次循环首 (循环次数, n)
临时数据 ＝ 临时数据 ＋ 超级列表框1.取标题 (n － 1, 0) ＋ #换行符 ＋ 超级列表框1.取标题 (n － 1, 1)
.计次循环尾 ()
最终数据 ＝ 加密数据 (到字节集 (临时数据), “mmc”, 2)
写到文件 (取运行目录 () ＋ “\revert.dat”, 最终数据)

.子程序 _按钮1_被单击
.局部变量 分割文本, 文本型, , "0"
.局部变量 局部_计次, 整数型

分割文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (分割文本), 局部_计次)
超级列表框1.插入表项 (0, 分割文本 [局部_计次], , , , )
.计次循环尾 ()

Answer 2

这个简单.版本 2.子程序 读取列表框项目
.局部变量 文件号, 整数型文件号 ＝ 打开文件 (“C:\XM.Dat”, #读入, )
.如果真 (文件号 ≠ 0)
.判断循环首 (是否在文件尾 (文件号, ) ＝ 假)
列表框1.加入项目 (读入一行 (文件号), )
.判断循环尾 ()
关闭文件 (文件号)
.如果真结束
.子程序 保存列表框项目
.局部变量 文件号, 整数型
.局部变量 项目数, 整数型
.局部变量 i, 整数型文件号 ＝ 打开文件 (“C:\XM.Dat”, #重写, )
.如果真 (文件号 ≠ 0)
项目数 ＝ 列表框1.取项目数 ()
.计次循环首 (项目数, i)
写文本行 (文件号, 列表框1.取项目文本 (i － 1))
.计次循环尾 ()
关闭文件 (文件号)

Answer 3

.版本 2

.子程序 __启动窗口_创建完毕

列表框1.列表项目 ＝ 读入文件 (取运行目录 () ＋ “\XM.Dat”)

.子程序 __启动窗口_将被销毁

写到文件 (取运行目录 () ＋ “\XM.Dat”, 列表框1.列表项目)