|
我们很多时候在处理文档的时候,多个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文档中。 |
|