【批量】多个txt文档内容合并在一个txt文档中

 

今天继续为大家介绍一种批量处理文档的技巧，我们要的就是，批量，快速，节省时间！

我们很多时候在处理文档的时候，多个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:DocumentsDesktop新建文件夹 (2) xt" '文件夹所在路径

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文档中。

 

《我的大学》本栏目欢迎各位技术技巧大神投稿！分享你的生活技巧点滴，谢谢！（可发送稿件到站长QQ邮箱：2310575866@qq.com）