超级列表框 的 保存 与 读取

ganen1980

.子程序 保存列表框, , , 超级列表框 的 保存 与 读取
.参数 列表框, 超级列表框
.参数 分割符号, 文本型, 可空, 默认：-- ；行间分隔符
.参数 列数, 整数型, 可空, 默认：0 ；列表框的列数
.参数 文件名, 文本型
.局部变量 计次, 整数型
.局部变量 计次1, 整数型
.局部变量 文件, 文本型

.如果真 (分割符号 ＝ “”)
    分割符号 ＝ “--”  ' #换行符
.如果真结束
.如果真 (列数 ＝ 0)
    列数 ＝ 1
.如果真结束
.如果真 (列数 ＝ 1)
    分割符号 ＝ #换行符
.如果真结束
.计次循环首 (超级列表框.取表项数 (), 计次)
    .计次循环首 (列数 － 1, 计次1)
        文件 ＝ 文件 ＋ 超级列表框.取标题 (计次 － 1, 计次1 － 1) ＋ 分割符号
    .计次循环尾 ()
    文件 ＝ 文件 ＋ 超级列表框.取标题 (计次 － 1, 列数 － 1) ＋ #换行符
    写到文件 (文件名, 到字节集 (文件))
.计次循环尾 ()


.子程序 读入列表框, , , 超级列表框 的 保存 与 读取
.参数 列表框, 超级列表框
.参数 文件名, 文本型, , 文件所在目录
.参数 分隔符, 文本型, 可空, 默认：“--”；行间分隔符
.局部变量 文件号, 整数型
.局部变量 文件, 文本型
.局部变量 数组, 文本型, , "0"
.局部变量 数组2, 文本型, , "0"
.局部变量 a, 整数型
.局部变量 读索引, 整数型
.局部变量 a2, 整数型

超级列表框.全部删除 ()
文件号 ＝ 打开文件 (文件名, , )
文件 ＝ 读入文本 (文件号, )
数组 ＝ 分割文本 (文件, #换行符, )
.如果真 (分隔符 ＝ “”)
    分隔符 ＝ “--”
.如果真结束
.计次循环首 (取数组成员数 (数组), a)
    数组2 ＝ 分割文本 (数组 [a], 分隔符, )
    读索引 ＝ 超级列表框.插入表项 (, , , , , )
    .计次循环首 (取数组成员数 (数组2), a2)
        超级列表框.置标题 (读索引, a2 － 1, 数组2 [a2])
    .计次循环尾 ()
.计次循环尾 ()
关闭文件 (文件号)

huxian

啥意思 这个有什么用的

ganen1980

huxian 发表于 2020-7-4 11:12
啥意思 这个有什么用的

保存与读取，看不懂吗？我只是想保存在这里自己留着用，你用不着就不用理会了，对你有用就拿去，