|
发表于 2012-9-23 16:03:02
|
显示全部楼层
安徽省宿州市
读入和写出都有了!!- .版本 2
- .支持库 iext
- .子程序 __启动窗口_创建完毕
- .局部变量 第一次分割, 文本型, , "0"
- .局部变量 第二次分割, 文本型, , "0"
- .局部变量 n1, 整数型
- .局部变量 n2, 整数型
- .局部变量 索引, 整数型
- 第一次分割 = 分割文本 (到文本 (读入文件 (取运行目录 () + “\你的文件名.txt”)), #换行符, )
- .计次循环首 (取数组成员数 (第一次分割), n1)
- 第二次分割 = 分割文本 (第一次分割 [n1], “|*|”, )
- 索引 = 超级列表框1.插入表项 (, , , , , )
- .计次循环首 (超级列表框1.取列数 (), n2)
- 超级列表框1.置标题 (索引, n2 - 1, 第二次分割 [n2])
- .计次循环尾 ()
- .计次循环尾 ()
- .子程序 _按钮1_被单击
- .局部变量 n1, 整数型
- .局部变量 n2, 整数型
- .局部变量 预存文本, 文本型
- .计次循环首 (超级列表框1.取表项数 (), n1)
- .计次循环首 (超级列表框1.取列数 (), n2)
- 预存文本 = 预存文本 + 超级列表框1.取标题 (n1 - 1, n2 - 1) + “|*|” ' 用于下次分割列
- .计次循环尾 ()
- 预存文本 = 预存文本 + #换行符
- .计次循环尾 ()
- 写到文件 (取运行目录 () + “\你的文件名.txt”, 到字节集 (预存文本))
复制代码 |
评分
-
参与人数 1 | 荣誉 +1 |
收起
理由
|
笨潴
| + 1 |
热心帮助他人,荣誉+1,希望继续努力(*^__^. |
查看全部评分
|