带你玩转超级列表框 5 保存内容读取与选择性保存讲师：雪山凌狐

531826228 · 发表于 2017-5-23 16:14:34

这是啥子数据库呢

colin1980 · 发表于 2017-5-23 15:59:18

哈哈第五课了学习了

xshn · 发表于 2017-5-23 14:02:09

感谢分享教程

随风小小 · 发表于 2017-5-23 12:48:15

雪山凌狐发表于 2017-5-23 12:29
我测试了已经存在的文件，文件号是能取到的，但是这里是要创建一个全新的文件，我在想全新的不存在的文件 ...

好的，老师谢谢了

雪山凌狐 · 发表于 2017-5-23 12:29:55

随风小小发表于 2017-5-23 12:24
.版本 2
.支持库 spec
.支持库 iext

我测试了已经存在的文件，文件号是能取到的，但是这里是要创建一个全新的文件，我在想全新的不存在的文件是否文件号本来就是零呢？你可以测试下按我教程中的写法写文件，看最后文件是否能顺利生成呢？

随风小小 · 发表于 2017-5-23 12:25:36

随风小小发表于 2017-5-23 12:24
.版本 2
.支持库 spec
.支持库 iext

但是读取可以就是保存不行所有我用了写入文件 ~

随风小小 · 发表于 2017-5-23 12:24:36

雪山凌狐发表于 2017-5-23 12:18
你给的图片代码，最关键的打开文件那一步的代码只截取了左边，右边看不到，不知道你取的是什么文件，系统 ...

.版本 2
.支持库 spec
.支持库 iext

.子程序 _按钮2_被单击
.局部变量文件号, 整数型
.局部变量多少行, 整数型
.局部变量多少列, 整数型
.局部变量循环次数, 整数型
.局部变量循环次数2, 整数型
.局部变量写出的内容, 文本型
.局部变量选择的行数, 整数型, , "0"

调试输出 (“开始保存”)
文件号＝打开文件 (取运行目录 () ＋ “ \1.txt”, #重写, #禁止读写)
调试输出 (“文件号：---------”, 文件号)

多少行＝超级列表框1.取表项数 ()
多少列＝超级列表框1.取列数 ()
选择的行数＝超级列表框1.取被选择表项 ()
调试输出 (选择的行数)

.计次循环首 (取数组成员数 (选择的行数), 循环次数)
' 写出的内容＝ “”
.计次循环首 (多少列, 循环次数2)
      .如果真 (循环次数2 ＞ 1)
         写出的内容＝写出的内容＋ “|”
      .如果真结束
      写出的内容＝写出的内容＋超级列表框1.取标题 (选择的行数 [循环次数], 循环次数2 － 1)

.计次循环尾 ()

' 写出的内容＝写出的内容＋ #换行符

.计次循环尾 ()
' 写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (写出的内容))