文本合并！！

acfred · 发表于 2010-6-8 20:46:39

我想实现一个目录下的所有文本文件全合并成一个文件，用什么指令可以实现

请高手指教

77413036 · 发表于 2010-6-8 20:46:40

[e].版本 2

.程序集窗口程序集1

.子程序 _按钮1_被单击
.局部变量文本1, 文本型
.局部变量文本2, 文本型
.局部变量文本3, 文本型
.局部变量文本4, 文本型

' 读取文本，将文本的内容赋值给局部变量
文本1 ＝到文本 (读入文件 (取运行目录 () ＋ “/” ＋ “1.txt”))
文本2 ＝到文本 (读入文件 (取运行目录 () ＋ “/” ＋ “2.txt”))
文本3 ＝到文本 (读入文件 (取运行目录 () ＋ “/” ＋ “3.txt”))
' 将所有赋值的局部变量连接起来，赋值给一个新的局部变量
文本4 ＝文本1 ＋ #换行符＋文本2 ＋ #换行符＋文本3

写到文件 (取运行目录 () ＋ “/” ＋ “4.txt”, 到字节集 (文本4))

[/e]

写成这样了我想没必要再全写下去了。全写下来就没意义了。
我发现我以前解答的弊端了，把源码写完整了，连让人家思考都不用，那我这个帮忙倒是真没意义。
我从来不解答辅助制作的问题，学易语言冲着那个的太多了。太多都是一时心血来潮，觉得不是那么简单，就放弃了。
多文件并且文件个数不确定，那么你就用数组。
用这个命令选择文件，可以多选。如果是找一个目录下所有的TXT文本，这个命令我没用过，我也不知道有没有。
〈文本型〉打开文件对话框扩展（［整数型父窗口句柄］，［文本型对话框标题］，［文本型初始路径］，［文本型过滤器］，［整数型风格］）
文件路径＝打开文件对话框扩展（）
单个文件路径＝分割文本 (文件路径, “,”, )
就得到一个所有选择的文件的路径的数组了。
然后再循环赋值、读取
记次循环首（取数组成员数（），次数）
记次循环尾
再将所有读取到的文件内容所赋给的值
写到文件（）
目标实现。

例程.rar (1.12 KB, 下载次数: 46)