我的大学

当前位置:主页 > 技术技巧 > 【批量】多个txt文档内容合并在一个txt文档中

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

时间:2017-12-25 14:54:47 作者:猜猜我是谁 点击:收藏本站
今天继续为大家介绍一种批量处理文档的技巧,我们要的就是,批量,快速,节省时间!我们很多时候在处理文档的时候,多个txt文档内容我们要不断切换来回,比较麻烦,如果能把他们先合成一份,再进行编辑那不就是节约了很多时间!...
 

【批量】多个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:\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文档中。

 

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

(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
------分隔线----------------------------
评论板块
发表评论
欢迎分享您的经验,一起交流!验证码输错得重新填写评论,字多的请务必先复制下!
用户名: 验证码:点击我更换图片
最新评论

相册动态


本月热点

Copyright ©2011 我的大学 All Rights Reserved
站长QQ:2310575866 感谢 DEDECMS