用vbscript合并多个文本文件的代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 问： 嗨，ScriptingGuy！在命令提示符中，可以执行命令“copya.txt+b.txtab.txt”来提取a.txt和b.txt的内容，然后将它们合并到名为ab.txt的新文件中。可以使用脚本来实现相同的操作吗？ --DL 答： 嗨，DL。在昨天的专栏文章中，我们探讨了有关文本文件的问题；更具体地讲，我们讨论如何使用脚本来修改.INI文件。我们提到，这种解决方法尽管不是很巧妙，但可以达到目的。就今天的问题来说，同样是这种情况。我们可以使用脚本来合并文本文件吗？是的，可以。只不过有一点繁琐，但效果很好。 我们所遇到的难题是，WSH和VBScript都无法通过一条命令来合并文本文件，例如，objFile.AddTextFiles("file1.log","file2.log")。这有点让人失望，但我们不会就此罢手，我们依然可以合并文本文件；只不过需要多执行几个步骤罢了。例如，要将File1.log和File2.log合并为一个文件（我们将其命名为Output.txt），需要先读取File1.log，将该文件的内容附加到output.txt末尾，然后读取File2.log，再将该文件的内容附加到Output.txt末尾。事实上，我们必须使用类似下面的脚本： 复制代码 代码如下: ConstForReading=1 SetobjFSO=CreateObject("Scripting.FileSystemObject") SetobjOutputFile=objFSO.CreateTextFile("output.txt") SetobjTextFile=objFSO.OpenTextFile("c:\logs\file1.log",ForReading) strText=objTextFile.ReadAll objTextFile.Close objOutputFile.WriteLinestrText SetobjTextFile=objFSO.OpenTextFile("c:\logs\file2.log",ForReading) strText=objTextFile.ReadAll objTextFile.Close objOutputFile.WriteLinestrText objOutputFile.Close 正如您所看到的一样，该脚本并不是特别复杂。首先，我们定义一个常量(ForReading)，用于打开每个日志文件。接下来，创建一个FileSystemObject（用于处理文本文件的脚本技术）实例，并使用CreateTextFile方法创建一个名为Output.txt的新文件。 然后，打开第一个文件(C:\Logs\File1.log)来读取其中的内容。我们使用ReadAll方法读入整个文本文件，并将该信息存储在变量strText中。然后，关闭File1.log，并使用WriteLine方法将刚读入的信息附加到新文件Output.txt的末尾。接下来，对下一个文件(C:\Logs\File2.log)执行相同的过程。读入第二个文件后，Output.txt将包含第一个文件以及第二个文件中的所有信息。哈哈，我们成功了！ 我们知道您在想什么：不错，尽管上述脚本可以实现目的，但问题是您必须“事先”知道文件夹C:\Logs中所有文件的名称。那么，编写一个脚本以获取C:\Logs中的所有文件并将它们合并在一起，岂不是更好？嗯，我们还未曾这样想过。您所说的是不是类似下面的脚本： ConstForReading=1 SetobjFSO=CreateObject("Scripting.FileSystemObject") SetobjOutputFile=objFSO.CreateTextFile("output.txt") strComputer="." SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2") SetFileList=objWMIService.ExecQuery_ ("ASSOCIATORSOF{Win32_Directory.Name=''C:\Logs''}Where"_ &"ResultClass=CIM_DataFile") ForEachobjFileInFileList SetobjTextFile=objFSO.OpenTextFile(objFile.Name,ForReading) strText=objTextFile.ReadAll objTextFile.Close objOutputFile.WriteLinestrText Next objOutputFile.Close 实际上，我们在此处执行的全部操作是获取C:\Logs文件夹中所有文件的集合；这是通过以下WMIAssociatorsof查询实现的： SetFileList=objWMIService.ExecQuery_ ("ASSOCIATORSOF{Win32_Directory.Name=''C:\Logs''}Where"_ &"ResultClass=CIM_DataFile") 在获取这一集合后，我们可以立即使用For-Each循环打开每个文件并读入其中的文本（使用ReadAll方法，与上文中的代码相同）。然后关闭该文件，将文本附加到输出文件的末尾。接下来再执行一次循环，对集合中的下一个文件执行相同的过程。只需片刻，就可以将C:\Logs中所有文件的所有文本提取出来，并将它们合并为一个名为output.txt的新文件。整个过程就是这么简单。 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于用vbscript合并多个文本文件的代码的所有评论
