|
发表于 2017-5-23 12:24:36
|
显示全部楼层
河南省郑州市
.版本 2
.支持库 spec
.支持库 iext
.子程序 _按钮2_被单击
.局部变量 文件号, 整数型
.局部变量 多少行, 整数型
.局部变量 多少列, 整数型
.局部变量 循环次数, 整数型
.局部变量 循环次数2, 整数型
.局部变量 写出的内容, 文本型
.局部变量 选择的行数, 整数型, , "0"
调试输出 (“开始保存”)
文件号 = 打开文件 (取运行目录 () + “ \1.txt”, #重写, #禁止读写)
调试输出 (“文件号:---------”, 文件号)
多少行 = 超级列表框1.取表项数 ()
多少列 = 超级列表框1.取列数 ()
选择的行数 = 超级列表框1.取被选择表项 ()
调试输出 (选择的行数)
.计次循环首 (取数组成员数 (选择的行数), 循环次数)
' 写出的内容 = “”
.计次循环首 (多少列, 循环次数2)
.如果真 (循环次数2 > 1)
写出的内容 = 写出的内容 + “|”
.如果真结束
写出的内容 = 写出的内容 + 超级列表框1.取标题 (选择的行数 [循环次数], 循环次数2 - 1)
.计次循环尾 ()
' 写出的内容 = 写出的内容 + #换行符
.计次循环尾 ()
' 写到文件 (取运行目录 () + “\1.txt”, 到字节集 (写出的内容))
|
|