|
|
我们很多时候在处理文档的时候，多个txt文档内容我们要不断切换来回，比较麻烦，如果能把他们先合成一份，再进行编辑那不就是节约了很多时间！
今天就为大家介绍这一下几种代码!
方法一、type *.txt > a.txt
将这串代码放到txt文档中（注意要有空格），修改后缀名为.bat，放入要处理的txt文档的文件夹里，双击。即可将文件夹内所有txt文档的内容生成到a.txt里面了。
txt文档批量合并技巧-我的大学
★方法二、copy *.txt 合并文件.txt
方法二的操作跟方法一的一样，还是一样，注意要有空格。为啥在这里要介绍多一种方法呢？因为部分txt文档生成打开后是乱码。出现这种情况的原因是txt内容的字体格式，编码形式不同。所以生成导出的是另一种编码，所以就有乱码的情况出现。
一般用方法二可以避免这种情况出现，但是还是会有个别情况，所以给大家多介绍一些方法备用。
方法三、复制以下代码到txt文档，并修改后缀名为.bat，要注意的是里面“文件夹所在路径”，要修改成你保存的txt文档的文件夹路径，尽量减少级别，用英文命名文件夹。
Dim FolderPath,Write,May
FolderPath="E:\Documents\Desktop\新建文件夹 (2)\txt" '文件夹所在路径
Write="你好" '要添加的字符串
May=Msgbox("是否保留原文件？",36,"询问")
Set Fso = CreateObject("Scripting.FileSystemObject")
Set F = Fso.GetFolder(FolderPath)
Set TxtPath = F.Files
For Each Every in TxtPath
IF LCase(Right(Every,3))="txt" Then '判断文件是否是TXT文本
Set Text_1=Fso.OpenTextFile(Every)
Set Text_2=Fso.CreateTextFile(Left(Every,Len(Every)-4)&"_VBS.txt")
Do Until Text_1.AtEndofStream
Text_2.WriteLine Write&Text_1.ReadLine '写入内容
Loop
Text_1.Close
Text_2.close
IF May=7 Then
Set Text_1=Fso.GetFile(Every)
Text_1.Delete
End IF
End IF
Next
WScript.Quit
以上的代码文件完成后，双击即可。而且里面的代码可以根据自己的需求进行修改。不过本人觉得方法三的操作比较麻烦，而且容易出错，不懂代码的还是选用以上两种方法操作会比较方便。
以上就是为大家分享的批量执行多个txt文档内容合并在一个txt文档中。 |
|
发表于 2020-5-30 05:37:31
