帮帮忙!!!谢谢!!!改正

zhtty · 发表于 2011-3-8 21:15:21

需要精易模块 V2.54.ec

内容下载附件

mick0866 · 发表于 2011-3-8 21:15:22

[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]

qq764520536 · 发表于 2011-3-8 22:15:05

看看例子

1.rar (610.78 KB, 下载次数: 5)

mick0866 · 发表于 2011-3-8 22:52:05

我已经改好了
好像传不了附件

zhtty · 发表于 2011-3-8 23:53:18

版主的不行啊. 文件2.txt是出来了但是没内容{:3_239:}{:3_239:}{:3_239:}

pest · 发表于 2011-3-9 09:21:01

1.rar (609.53 KB, 下载次数: 5)

exit11 · 发表于 2011-3-9 09:39:10

[e].版本 2

.程序集窗口程序集1
.程序集变量文本, 文本型
.程序集变量行文本, 文本型, , "0"
.程序集变量列文本, 文本型, , "0"
.程序集变量找到的文件, 文本型, , "0"
.程序集变量 N, 整数型

.子程序 _按钮1_被单击
.局部变量文件号, 整数型

文本＝到文本 (读入文件 (取运行目录 () ＋ “\1.txt”))
行文本＝分割文本 (文本, #换行符, )
列文本＝分割文本 (行文本 [1], “|”, )
文件_枚举 (取运行目录 () ＋ “\” ＋列文本 [取数组成员数 (列文本)], “*.zip”, 找到的文件, 假)
.如果真 (单选框1.选中)
文件号＝打开文件 (取运行目录 () ＋ “\2.txt”, , )
.计次循环首 (取数组成员数 (找到的文件), N)
插入文本行 (文件号, 找到的文件 [N])
.计次循环尾 ()[/e]

exit11 · 发表于 2011-3-9 09:40:42

原来文件_枚举()中少一个 \

阿柳 · 发表于 2011-3-9 13:30:14

都很极其啊

		自动登录	找回密码
密码			注册

[已解决] 帮帮忙!!!谢谢!!!改正

最佳答案

RE: 帮帮忙!!!谢谢!!!改正