Question

易语言V5.11 选择列表框内的信息 保存于读取

Answer 1

.版本 2
.子程序 _按钮1_被单击
选择列表框1.加入项目 (编辑框1.内容, )

.子程序 LOAD
.局部变量 文件号, 整数型
.局部变量 文本数组, 文本型, , "0"
.局部变量 文本, 文本型
.局部变量 索引, 整数型
文件号 ＝ 打开文件 (“.\List.dat”, 1, )
.如果真 (文件号 ≤ 0)
返回 ()
.如果真结束
选择列表框1.清空 ()
移到文件首 (文件号)
.判断循环首 (取反 (是否在文件尾 (文件号, )))
文本 ＝ 读入一行 (文件号)
文本数组 ＝ 分割文本 (文本, “,”, )
.如果真 (取数组下标 (文本数组, ) ≥ 2)
索引 ＝ 选择列表框1.加入项目 (文本数组 [2], )
选择列表框1.选中项目 (索引, 文本数组 [1] ＝ “1”)
.如果真结束
处理事件 ()
.判断循环尾 ()
关闭文件 (文件号)

.子程序 SAVE
.局部变量 文件号, 整数型
.局部变量 cnt, 整数型
.局部变量 tmp, 整数型
文件号 ＝ 打开文件 (“.\List.dat”, 4, )
移到文件首 (文件号)
cnt ＝ 选择列表框1.取项目数 ()
.计次循环首 (cnt, tmp)
写文本行 (文件号, 选择 (选择列表框1.是否被选中 (tmp － 1), “1”, “0”) ＋ “,” ＋ 选择列表框1.取项目文本 (tmp － 1))
处理事件 ()
.计次循环尾 ()
关闭文件 (文件号)