文件_合并文件()的第三个参数无效，源码里根本没出现第三个参数的相关代码

mokeyjay

[e]
.版本 2.子程序 文件_合并文件, , 公开, 将两个文件进行合并,生成一个新的文件.参数 合并文件名, 文本型, , 前一个文件名,最后生成的文件名也是它..参数 被合并文件名, 文本型, , 要追加的文件名..参数 生成文件名, 文本型, 可空, 如果空,以第一个文件名为准.局部变量 头文件, 整数型.局部变量 字节数据, 字节集.局部变量 尾文件, 整数型头文件 ＝ 打开文件 (合并文件名, #改写, ).如果真 (头文件 ≠ 0)    .如果真 (移到文件尾 (头文件))    .如果真结束.如果真结束尾文件 ＝ 打开文件 (被合并文件名, , ).如果真 (尾文件 ≠ 0)    .如果真 (移到文件首 (尾文件))    .如果真结束.如果真结束.如果真 (插入字节集 (头文件, 读入字节集 (尾文件, 取文件长度 (尾文件))))    关闭文件 (头文件)    关闭文件 (尾文件)    头文件 ＝ 打开文件 (合并文件名, , )
[/e]

小磊

已经修改并且重写整个命令

mokeyjay

.版本 2

.子程序 文件_合并文件, , 公开, 将两个文件进行合并,生成一个新的文件
.参数 合并文件名, 文本型, , 前一个文件名,最后生成的文件名也是它.
.参数 被合并文件名, 文本型, , 要追加的文件名.
.参数 生成文件名, 文本型, 可空, 如果空,以第一个文件名为准
.局部变量 头文件, 整数型
.局部变量 字节数据, 字节集
.局部变量 尾文件, 整数型

头文件 ＝ 打开文件 (合并文件名, #改写, )
.如果真 (头文件 ≠ 0)
    .如果真 (移到文件尾 (头文件))
    .如果真结束

.如果真结束
尾文件 ＝ 打开文件 (被合并文件名, , )
.如果真 (尾文件 ≠ 0)
    .如果真 (移到文件首 (尾文件))
    .如果真结束

.如果真结束
.如果真 (插入字节集 (头文件, 读入字节集 (尾文件, 取文件长度 (尾文件))))
    关闭文件 (头文件)
    关闭文件 (尾文件)
    头文件 ＝ 打开文件 (合并文件名, , )