|
发表于 2011-3-8 21:15:22
|
显示全部楼层
江苏省苏州市
RE: 帮帮忙!!!谢谢!!!改正
[e].版本 2
.程序集 窗口程序集1
.程序集变量 文本, 文本型
.程序集变量 行文本, 文本型, , "0"
.程序集变量 列文本, 文本型, , "0"
.程序集变量 找到的文件, 文本型, , "0"
.程序集变量 N, 整数型
.程序集变量 a, 整数型
.子程序 __启动窗口_创建完毕
.子程序 _按钮1_被单击
文本 = 到文本 (读入文件 (取运行目录 () + “\1.txt”))
行文本 = 分割文本 (文本, #换行符, )
列文本 = 分割文本 (行文本 [1], “|”, )
文件_枚举 (取运行目录 () + “\” + 列文本 [5], “*.zip”, 找到的文件, 假)
.如果真 (单选框1.选中)
a = 打开文件 (“2.txt”, #重写, )
移到文件尾 (a)
.计次循环首 (取数组成员数 (找到的文件), N)
插入字节集 (a, 到字节集 (找到的文件 [N] + #换行符))
.计次循环尾 ()
.如果真结束
' 这是我的思路,就是把目录里面的ZIP文件名字,都写到2.txt里面 2.txt里面的内容请看 2.txt 文件[/e] |
|