本帖最后由 Mr_Rebel 于 2014-7-9 08:14 编辑
刚写了一个TXT文本合并工具，能够进行TXT文本合并工作。
不多说直接上图
文本合并.zip
(270.4 KB, 下载次数: 1096)
贴出源码[Erlang] 纯文本查看 复制代码 .版本 2
.支持库 spec
.支持库 commobj
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 文件路径, 文本型, , "0"
.局部变量 文件计次, 整数型
文件路径 ＝ 多文件对话框 (“请选择文件”, “文本文件（*.txt）|*.txt”, , , )
.如果真 (取数组成员数 (文件路径) ＞ 0)
.计次循环首 (取数组成员数 (文件路径), 文件计次)
处理事件 ()
调试输出 (文本合并子程序 (文件路径 [文件计次], ))
.计次循环尾 ()
.如果真结束
信息框 (“合并完成”, 0, )
.子程序 文本合并子程序, 逻辑型
.参数 欲合并文件, 文本型, , 欲合并文件！
.参数 欲保存文件, 文本型, 可空, 欲保存新文件！
.局部变量 快速文本, 快速文本对象
.局部变量 文件序号, 整数型
.如果真 (是否为空 (欲保存文件))
欲保存文件 ＝ 取运行目录 () ＋ “/合并后文件.txt”
.如果真结束
快速文本.从文件读 (欲合并文件)
文件序号 ＝ 打开文件 (欲保存文件, #改写, )
.如果真 (文件序号 ＝ 0)
返回 (假)
.如果真结束
移到文件尾 (文件序号)
插入文本 (文件序号, 快速文本.取文本 (, ))
快速文本.清除文本 ()
关闭文件 (文件序号)
返回 (真)
| 
[复制链接]
发表于 2014-7-8 14:20
