易语言超级列表框通用数据导入导出

.子程序 超级列表框_读取, 逻辑型, , 读取已保存的内容到超级列表框
.参数 超级列表框, 超级列表框
.参数 文件路径, 文本型
.参数 分割符合, 文本型, 可空, 默认为----
.参数 图片, 整数型, 可空
.局部变量 文本, 文本型
.局部变量 x, 整数型
.局部变量 数组, 文本型, , "0"
.局部变量 y, 整数型
.局部变量 项目, 文本型, , "0"
.局部变量 a, 整数型
.局部变量 分隔, 文本型

分隔 ＝ 选择 (是否为空 (分割符合), “----”, 分割符合)
.如果真 (文件是否存在 (文件路径) ＝ 假)
返回 (0)
.如果真结束
文本 ＝ 到文本 (读入文件 (文件路径))
数组 ＝ 分割文本 (文本, #换行符, )
.变量循环首 (1, 取数组成员数 (数组), 1, x)
项目 ＝ 分割文本 (数组 [x], 分隔, )
a ＝ 超级列表框.插入表项 (, , 图片, , , )
.计次循环首 (取数组成员数 (项目), y)
超级列表框.置标题 (x － 1, y － 1, 项目 [y])
.计次循环尾 ()
.变量循环尾 ()
返回 (x － 1)