精易论坛

标题: 超级列表框的保存与读取 [打印本页]

作者: ganen1980 时间: 2020-7-4 07:15
标题: 超级列表框的保存与读取

.子程序保存列表框, , , 超级列表框的保存与读取
.参数列表框, 超级列表框
.参数分割符号, 文本型, 可空, 默认：-- ；行间分隔符
.参数列数, 整数型, 可空, 默认：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 时间: 2020-7-4 11:12
啥意思这个有什么用的

作者: ganen1980 时间: 2020-8-24 22:03

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

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

欢迎光临精易论坛 (https://125.confly.eu.org/)