INI保存和读取问题，超级列表框

自来也

图1是空表，没有列名称，图2是导入了EXCEL之后的，有列名称
有没有大神给个例子，INI配置文件保存（关闭后重开列名称也会没有，会导入列名称不同的表格）超级列表框内容
然后保存之后，在图1空表中读取之前保存的文件，超级列表框就如图2显示

山顶小雪球

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
目录	文本型
n	整数型

目录 ＝ 取运行目录 () ＋ “\123.ini”
写配置项 (目录, “数量”, “总数”, 到文本 (超级列表框1.取表项数 ()))
计次循环首 (超级列表框1.取表项数 (), n)
写配置项 (目录, 到文本 (n), “订单单号”, 超级列表框1.取标题 (n － 1, 0))
写配置项 (目录, 到文本 (n), “快递名称”, 超级列表框1.取标题 (n － 1, 1))
写配置项 (目录, 到文本 (n), “快递单号”, 超级列表框1.取标题 (n － 1, 2))
写配置项 (目录, 到文本 (n), “快递时间”, 超级列表框1.取标题 (n － 1, 3))
写配置项 (目录, 到文本 (n), “备注”, 超级列表框1.取标题 (n － 1, 4))
计次循环尾 ()
信息框 (“保存完成”, 0, , )

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
目录	文本型
数量	整数型
索引	整数型
n	整数型

目录 ＝ 取运行目录 () ＋ “\123.ini”
数量 ＝ 到整数 (读配置项 (目录, “数量”, “总数”, “0”))
超级列表框1.全部删除 ()
计次循环首 (数量, n)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 读配置项 (目录, 到文本 (n), “订单单号”, ))
超级列表框1.置标题 (索引, 1, 读配置项 (目录, 到文本 (n), “快递名称”, ))
超级列表框1.置标题 (索引, 2, 读配置项 (目录, 到文本 (n), “快递单号”, ))
超级列表框1.置标题 (索引, 3, 读配置项 (目录, 到文本 (n), “快递时间”, ))
超级列表框1.置标题 (索引, 4, 读配置项 (目录, 到文本 (n), “备注”, ))
计次循环尾 ()
信息框 (“读取完成”, 0, , )

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 目录, 文本型<br /> .局部变量 n, 整数型<br /> <br /> 目录 ＝ 取运行目录 () ＋ “\123.ini”<br /> 写配置项 (目录, “数量”, “总数”, 到文本 (超级列表框1.取表项数 ()))<br /> .计次循环首 (超级列表框1.取表项数 (), n)<br />     写配置项 (目录, 到文本 (n), “订单单号”, 超级列表框1.取标题 (n － 1, 0))<br />     写配置项 (目录, 到文本 (n), “快递名称”, 超级列表框1.取标题 (n － 1, 1))<br />     写配置项 (目录, 到文本 (n), “快递单号”, 超级列表框1.取标题 (n － 1, 2))<br />     写配置项 (目录, 到文本 (n), “快递时间”, 超级列表框1.取标题 (n － 1, 3))<br />     写配置项 (目录, 到文本 (n), “备注”, 超级列表框1.取标题 (n － 1, 4))<br /> .计次循环尾 ()<br /> 信息框 (“保存完成”, 0, , )<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 目录, 文本型<br /> .局部变量 数量, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 目录 ＝ 取运行目录 () ＋ “\123.ini”<br /> 数量 ＝ 到整数 (读配置项 (目录, “数量”, “总数”, “0”))<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (数量, n)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 读配置项 (目录, 到文本 (n), “订单单号”, ))<br />     超级列表框1.置标题 (索引, 1, 读配置项 (目录, 到文本 (n), “快递名称”, ))<br />     超级列表框1.置标题 (索引, 2, 读配置项 (目录, 到文本 (n), “快递单号”, ))<br />     超级列表框1.置标题 (索引, 3, 读配置项 (目录, 到文本 (n), “快递时间”, ))<br />     超级列表框1.置标题 (索引, 4, 读配置项 (目录, 到文本 (n), “备注”, ))<br /> .计次循环尾 ()<br /> 信息框 (“读取完成”, 0, , )

走一回

根据不同的excel来动态的更改列数及列名,这个好像要用对象,通过excel对象来获取列表及列数,才能动态插入列.

Casyo

动态插入列啊

自来也

qq1347522182 发表于 2020-5-9 18:59
[e=1].版本 2
.支持库 iext

是要保存插入动态列哦，不是固定名称

山顶小雪球

自来也 发表于 2020-5-11 14:07
是要保存插入动态列哦，不是固定名称

写到文件 (取运行目录 () ＋ “\11.lb”, 超级列表框1.表项)  ' 储存

超级列表框1.表项 ＝ 读入文件 (取运行目录 () ＋ “\11.lb”)  ' 读取

自来也

qq1347522182 发表于 2020-5-11 14:45
写到文件 (取运行目录 () ＋ “\11.lb”, 超级列表框1.表项)  ' 储存

超级列表框1.表项 ＝ 读入文件 ( ...

能帮我看看源码有什么问题吗，导入EXCEL表后，保存没问题，就是读入不出来，源码在下面