文本组合问题，求大神

有梦就追 · 发表于 2019-7-29 19:21:25

多段文本.rar (536 Bytes, 下载次数: 9)

寒潮 · 发表于 2019-7-29 19:21:26

多段文本.rar (211.34 KB, 下载次数: 7)

寒潮 · 发表于 2019-7-29 19:38:34

变量名	类型	静态	数组	备注
局_文件数组	文本型		0
局_待写入文件	整数型
局_计次	整数型
局_当前文件号	整数型
局_当前行内容	文本型

文件_枚举 (取运行目录 (), “*.txt”, 局_文件数组, 真, 真)
局_待写入文件＝打开文件 (取运行目录 () ＋ “\abc.txt”, 4, )

如果真 (局_待写入文件＝ 0)

返回 ()

计次循环首 (取数组成员数 (局_文件数组), 局_计次)

局_当前文件号＝ 0

移到文件尾 (局_待写入文件)

局_当前文件号＝打开文件 (局_文件数组 [局_计次], , )

如果真 (局_当前文件号＝ 0)

到循环尾 ()

移到文件首 (局_当前文件号)

判断循环首 (是否在文件尾 (局_当前文件号, ) ＝假)

局_当前行内容＝读入一行 (局_当前文件号)

写文本行 (局_待写入文件, 局_当前行内容)

判断循环尾 ()

关闭文件 (局_当前文件号)

计次循环尾 ()
关闭文件 (局_待写入文件)

黄河里的炸糕 · 发表于 2019-7-29 21:34:57

.版本 2

.子程序 _按钮1_被单击
.局部变量文件数量, 整数型
.局部变量文件数组, 文本型, , "0"
.局部变量文件内容, 文本型
.局部变量 i, 整数型
.局部变量文件, 整数型

文件数量＝文件_枚举 (取运行目录 () ＋ “\多段文本”, “*.txt”, 文件数组, 假)

.计次循环首 (文件数量, i)
文件＝打开文件 (取运行目录 () ＋ “\多段文本\” ＋文件数组 , 1, 1)
文件内容＝读入文本 (文件, )
写到文件 (取运行目录 () ＋ “\1.txt”, 读入文件 (取运行目录 () ＋ “\1.txt”) ＋到字节集 (文件内容＋ #换行符))
标签1.标题＝ “合并完成！”
输出调试文本 (文件内容)
.计次循环尾 ()

补充内容 (2019-7-29 21:36):
附件怎么没有了？？？？？

黄河里的炸糕 · 发表于 2019-7-29 21:36:59

e.e (745.04 KB, 下载次数: 2)

诚实小水怪 · 发表于 2019-7-29 21:44:03

.版本 2 .程序集窗口程序集_启动窗口 .程序集变量 a, 文本型 .程序集变量 b, 文本型 .程序集变量 c, 文本型 .程序集变量 d, 文本型 .子程序 _按钮1_被单击 _启动窗口.通用对话框1.初始目录＝ “文件存放位置” .如果 (_启动窗口.通用对话框1.打开 () ＝真) a ＝到文本 (读入文件 (“文件存放位置” ＋ “\1.txt”)) b ＝到文本 (读入文件 (“文件存放位置” ＋ “\2.txt”)) c ＝到文本 (读入文件 (“文件存放位置” ＋ “\3.txt”)) d ＝ a ＋ #换行符＋ b ＋ #换行符＋ c 写到文件 (“文件存放位置” ＋ “\4.txt”, 到字节集 (d)) .否则 .如果结束

诚实小水怪 · 发表于 2019-7-29 21:45:02

.版本 2
.程序集窗口程序集_启动窗口
.程序集变量 a, 文本型
.程序集变量 b, 文本型
.程序集变量 c, 文本型
.程序集变量 d, 文本型
.子程序 _按钮1_被单击
_启动窗口.通用对话框1.初始目录＝ “文件存放位置”
.如果 (_启动窗口.通用对话框1.打开 () ＝真)
a ＝到文本 (读入文件 (“文件存放位置” ＋ “\1.txt”))
b ＝到文本 (读入文件 (“文件存放位置” ＋ “\2.txt”))
c ＝到文本 (读入文件 (“文件存放位置” ＋ “\3.txt”))
d ＝ a ＋ #换行符＋ b ＋ #换行符＋ c
写到文件 (“文件存放位置” ＋ “\4.txt”, 到字节集 (d))
.否则
.如果结束

复制代码

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

[已解决] 文本组合问题，求大神

最佳答案

评分