多个txt文本合并到一个txt问题

卡夫卡的熊

合并后，见图，  合并结果是   标题******文章    一行一篇，
  用ai搞一下午搞不出来。  一堆问题  ，求大佬解决

长安往事

合并文件.e (956.34 KB, 下载次数: 5)

7 天前 上传

点击文件名下载附件


补充内容 (2025-5-7 19:08):
放到文件目录下直接运行

aipca

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
目录	文本型
TXT文件	文本型		0
i	整数型
文本	文本型

目录 ＝ 取运行目录 () ＋ “\TXT\”
文件_枚举 (目录, “*.txt”, TXT文件, 真, 假, 真)
计次循环首 (取数组成员数 (TXT文件), i)
判断 (i ＝ 取数组成员数 (TXT文件))
文本 ＝ 文本 ＋ 文件_取文件名 (TXT文件 [i], 假) ＋ “******” ＋ 到文本 (读入文件 (TXT文件 [i]))


文本 ＝ 文本 ＋ 文件_取文件名 (TXT文件 [i], 假) ＋ “******” ＋ 到文本 (读入文件 (TXT文件 [i])) ＋ #换行符
计次循环尾 ()
写到文件 (取运行目录 () ＋ “\合并TXT.txt”, 到字节集 (文本))

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 目录, 文本型<br /> .局部变量 TXT文件, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文本, 文本型<br /> <br /> 目录 ＝ 取运行目录 () ＋ “\TXT\”<br /> 文件_枚举 (目录, “*.txt”, TXT文件, 真, 假, 真)<br /> .计次循环首 (取数组成员数 (TXT文件), i)<br />     .判断开始 (i ＝ 取数组成员数 (TXT文件))<br />         文本 ＝ 文本 ＋ 文件_取文件名 (TXT文件 <i>, 假) ＋ “******” ＋ 到文本 (读入文件 (TXT文件 <i>))<br />     .默认<br /> <br />     .判断结束<br />     文本 ＝ 文本 ＋ 文件_取文件名 (TXT文件 <i>, 假) ＋ “******” ＋ 到文本 (读入文件 (TXT文件 <i>)) ＋ #换行符<br /> .计次循环尾 ()<br /> 写到文件 (取运行目录 () ＋ “\合并TXT.txt”, 到字节集 (文本))

baitso

问题源码.e (954.68 KB, 下载次数: 1)

7 天前 上传

点击文件名下载附件

Ruang

  

子程序名	返回值类型	公开	备 注
功能_子文件下所有数据合并
参数名	类 型	参考	可空	数组	备 注
文件目录	文本型				文件目录
返回文件名	文本型				合并后的新文件（完整路径）

变量名	类 型	静态	数组	备 注
文件名	文本型		0
计次	整数型
新文本	文本型

如果真 (是否为空 (文件目录) 或 是否为空 (返回文件名))
返回 ()
文件_枚举 (文件目录, “*.txt”, 文件名, 真, , 假)
计次循环首 (取数组成员数 (文件名), 计次)
新文本 ＝ 新文本 ＋ 文件_取文件名 (文件名 [计次], 假) ＋ “******” ＋ 文本_替换 (到文本 (读入文件 (文件名 [计次])), , , , 字符 (13), “”, 字符 (10), “”, , , , , , ) ＋ #换行符
计次循环尾 ()
写到文件 (返回文件名, 新文本)

.版本 2<br /> <br /> .子程序 功能_子文件下所有数据合并<br /> .参数 文件目录, 文本型, , 文件目录<br /> .参数 返回文件名, 文本型, , 合并后的新文件（完整路径）<br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 新文本, 文本型<br /> <br /> .如果真 (是否为空 (文件目录) 或 是否为空 (返回文件名))<br />     返回 ()<br /> .如果真结束<br /> 文件_枚举 (文件目录, “*.txt”, 文件名, 真, , 假)<br /> .计次循环首 (取数组成员数 (文件名), 计次)<br />     新文本 ＝ 新文本 ＋ 文件_取文件名 (文件名 [计次], 假) ＋ “******” ＋ 文本_替换 (到文本 (读入文件 (文件名 [计次])), , , , 字符 (13), “”, 字符 (10), “”, , , , , , ) ＋ #换行符<br /> .计次循环尾 ()<br /> 写到文件 (返回文件名, 新文本)

Ruang

  

子程序名	返回值类型	公开	备 注
功能_子文件下所有数据合并
参数名	类 型	参考	可空	数组	备 注
文件目录	文本型				文件目录
返回文件名	文本型				合并后的新文件（完整路径）

变量名	类 型	静态	数组	备 注
文件名	文本型		0
计次	整数型
新文本	文本型

如果真 (是否为空 (文件目录) 或 是否为空 (返回文件名))
返回 ()
文件_枚举 (文件目录, “*.txt”, 文件名, 真, , 假)
计次循环首 (取数组成员数 (文件名), 计次)
新文本 ＝ 新文本 ＋ 文件_取文件名 (文件名 [计次], 假) ＋ “******” ＋ 文本_替换 (到文本 (读入文件 (文件名 [计次])), , , , 字符 (13), “”, 字符 (10), “”, , , , , , ) ＋ #换行符
计次循环尾 ()
写到文件 (返回文件名, 到字节集 (新文本))

.版本 2<br /> <br /> .子程序 功能_子文件下所有数据合并<br /> .参数 文件目录, 文本型, , 文件目录<br /> .参数 返回文件名, 文本型, , 合并后的新文件（完整路径）<br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 新文本, 文本型<br /> <br /> .如果真 (是否为空 (文件目录) 或 是否为空 (返回文件名))<br />     返回 ()<br /> .如果真结束<br /> 文件_枚举 (文件目录, “*.txt”, 文件名, 真, , 假)<br /> .计次循环首 (取数组成员数 (文件名), 计次)<br />     新文本 ＝ 新文本 ＋ 文件_取文件名 (文件名 [计次], 假) ＋ “******” ＋ 文本_替换 (到文本 (读入文件 (文件名 [计次])), , , , 字符 (13), “”, 字符 (10), “”, , , , , , ) ＋ #换行符<br /> .计次循环尾 ()<br /> 写到文件 (返回文件名, 到字节集 (新文本))

补充内容 (2025-5-7 18:01):
你那个看了一下，问题太多了，没有改的意义，还不如这样写

卡夫卡的熊

Ruang 发表于 2025-5-7 17:56
[e=3].版本 2

.子程序 功能_子文件下所有数据合并

编译后  拖进txt根目录  运行没有任何效果， 。。小白一个 ，  大佬

卡夫卡的熊

aipca 发表于 2025-5-7 16:24
[e=1].版本 2

.子程序 _按钮1_被单击

错误(11): 逗号（参数分隔符）处于错误位置。

Ruang

卡夫卡的熊 发表于 2025-5-7 18:41
编译后  拖进txt根目录  运行没有任何效果， 。。小白一个 ，  大佬

大概就是这个样子


补充内容 (2025-5-7 18:59):
文件保存在运行目录下

aipca

卡夫卡的熊 发表于 2025-5-7 18:44
错误(11): 逗号（参数分隔符）处于错误位置。

哪来的分隔符逗号，确定复制的是我的代码？ 附个源码自己试试吧