一键备份易语言超级列表框数据

.版本 2
.支持库 iext

.程序集 窗口程序集1

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



.子程序 保存超级列表框项目, 逻辑型, , 成功返回真，失败返回假
.参数 超级列表框, 超级列表框
.参数 文件名, 文本型
.局部变量 文件号, 整数型
.局部变量 字节集, 字节集
.局部变量 行数, 整数型
.局部变量 列数, 整数型
.局部变量 行循环, 整数型
.局部变量 列循环, 整数型

文件号 ＝ 打开文件 (文件名, #重写, )
行数 ＝ 超级列表框.取表项数 ()
列数 ＝ 超级列表框.取列数 ()
.计次循环首 (行数, 行循环)
    字节集 ＝ { 0 }  ' 表项头
    字节集 ＝ 字节集 ＋ 到字节集 (超级列表框.取图片 (行循环 － 1, 0))  ' 图片索引
    字节集 ＝ 字节集 ＋ 到字节集 (超级列表框.取当前状态图片 (行循环 － 1))  ' 状态图片索引
    字节集 ＝ 字节集 ＋ 到字节集 (超级列表框.取缩进数目 (行循环 － 1))  ' 缩进数目
    字节集 ＝ 字节集 ＋ 到字节集 (超级列表框.取表项数值 (行循环 － 1))  ' 表项数值
    字节集 ＝ 字节集 ＋ 到字节集 (超级列表框.取标题 (行循环 － 1, 0))  ' 项目文本
    字节集 ＝ 字节集 ＋ { 0, 0 }  ' 表项尾
    .如果真 (写出字节集 (文件号, 字节集) ＝ 假)
        关闭文件 (文件号)
        返回 (假)
    .如果真结束
    .计次循环首 (列数 － 1, 列循环)
        字节集 ＝ { 1, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 }  ' 表项之间的分隔符
        字节集 ＝ 字节集 ＋ 到字节集 (超级列表框.取标题 (行循环 － 1, 列循环))  ' 子项标题
        字节集 ＝ 字节集 ＋ { 0, 0 }  ' 表项尾
        .如果真 (写出字节集 (文件号, 字节集) ＝ 假)
            关闭文件 (文件号)
            返回 (假)
        .如果真结束
        处理事件 ()
    .计次循环尾 ()
    处理事件 ()
.计次循环尾 ()
关闭文件 (文件号)
返回 (真)

.子程序 _按钮1_被单击, , , 初始化
.局部变量 循环, 整数型
.局部变量 表项索引, 整数型

超级列表框.表项 ＝ {  }
置随机数种子 ()
.计次循环首 (100, 循环)
    表项索引 ＝ 超级列表框.插入表项 (, 到文本 (循环), , 取随机数 (0, 10), 取随机数 (0, 3), 取随机数 (, ))
    超级列表框.置标题 (表项索引, 1, 字符 (取随机数 (65, 90)))
    超级列表框.置标题 (表项索引, 2, 字符 (取随机数 (65, 90)))
    处理事件 ()
.计次循环尾 ()

.子程序 _超级列表框_当前表项被改变

标签1.标题 ＝ “表项索引：” ＋ 到文本 (超级列表框.现行选中项)
标签1.标题 ＝ 标签1.标题 ＋ #换行符 ＋ “表项数值：” ＋ 到文本 (超级列表框.取表项数值 (超级列表框.现行选中项))

.子程序 _按钮2_被单击

' 通用对话框1.类型 ＝ 1  ' 保存文件
' 如果真 (通用对话框1.打开 ())
.判断开始 (保存超级列表框项目 (超级列表框, “D:/666.qbx”))

.默认

.判断结束



.子程序 _按钮3_被单击

' 通用对话框1.类型 ＝ 0  ' 打开文件
.' 如果真 (通用对话框1.打开 ())
    超级列表框.表项 ＝ 读入文件 (“D:/666.qbx”)
.如果真结束

@htwan9