新手求助，超级列表框内容保存后，读入读取内容到列表...

888hu

新新手求助，超级列表框内容采集保存后，再次打开无法读取内容。超级列表框空白。

保存成功

空白

代码如下：
.版本 2
.支持库 iext

.子程序 _按钮5_被单击
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 文件号
.局部变量 一行, 文本型
.局部变量 表项, 整数型
.局部变量 a, 整数型
.局部变量 b, 整数型

' ----保存
文件号 ＝ 打开文件 (取运行目录 () ＋ “\基金列表.ini”, #重写, )
.如果真 (文件号 ＝ 0)
    信息框 (“保存xxoo”, 0, , )
    返回 ()
.如果真结束
a ＝ 超级列表框1.取表项数 ()
b ＝ 超级列表框1.取列数 ()
写出字节集 (文件号, 到字节集 (a))
写出字节集 (文件号, 到字节集 (b))
.计次循环首 (a, i)
    i ＝ i － 1  ' 从0开始
    .计次循环首 (b, j)
        j ＝ j － 1  ' 从0开始
        写出文本 (文件号, 超级列表框1.取标题 (i, j), #换行符)
    .计次循环尾 ()
    ' 写出文本 (文件号, , #换行符, “本项结束”)
.计次循环尾 ()
关闭文件 (文件号)
信息框 (“基金数据保存完毕！”, 0, , )

.子程序 _按钮6_被单击
.局部变量 文件号
.局部变量 一行, 文本型
.局部变量 a, 整数型
.局部变量 b, 整数型
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 表项, 整数型

' ----读取
文件号 ＝ 打开文件 (取运行目录 () ＋ “\基金列表.ini”, #重写, )
.如果真 (文件号 ＝ 0)
    信息框 (“读取基金数据失败！”, 0, , )
    返回 ()
.如果真结束
超级列表框1.全部删除 ()
.计次循环首 (超级列表框1.取列数 (), )
    超级列表框1.删除列 (0)
.计次循环尾 ()
读入数据 (文件号, a)
读入数据 (文件号, b)
.计次循环首 (b, i)
    超级列表框1.插入列 (, “列” ＋ 到文本 (i ＋ 1), , , , )
.计次循环尾 ()
.计次循环首 (a, i)
    表项 ＝ 超级列表框1.插入表项 (, , , , , )
.计次循环尾 ()
.计次循环首 (b, j)
    j ＝ j ＋ 1
    一行 ＝ 读入一行 (文件号)
    超级列表框1.置标题 (表项, j, 一行)
.计次循环尾 ()
关闭文件 (文件号)
信息框 (“读取基金数据完成！”, 0, , )

lisher

你读取字程序里 那个打开文件写入方式为啥还是 #重写

888hu

代码读取的地方改错了，这段代码有问题，不知道错在哪里了，#重新 王了改成 #读入了，但还是读入不了数据，而且表项变成了列2.。。。列11，新手太菜了

xf702

代码写的着实有点乱，看的不是很懂，意思是超级超级列表框内容保存到文本文件后，再打开超级列表框读保存的文本，读不出来？

888hu

已经采用excel导入导出解决了问题，请勿跟帖了。谢谢