用vbscript合并多个文本文件的代码
程序员文章站
2022-03-21 11:02:19
问: 嗨,scripting guy!在命令提示符中,可以执行命令“copy a.txt+b.txt ab.txt”来提取 a.tx...
问:
嗨,scripting guy!在命令提示符中,可以执行命令“copy a.txt+b.txt ab.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 末尾。事实上,我们必须使用类似下面的脚本:
const forreading = 1
set objfso = createobject("scripting.filesystemobject")
set objoutputfile = objfso.createtextfile("output.txt")
set objtextfile = objfso.opentextfile("c:\logs\file1.log", forreading)
strtext = objtextfile.readall
objtextfile.close
objoutputfile.writeline strtext
set objtextfile = objfso.opentextfile("c:\logs\file2.log ", forreading)
strtext = objtextfile.readall
objtextfile.close
objoutputfile.writeline strtext
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 中的所有文件并将它们合并在一起,岂不是更好?嗯,我们还未曾这样想过。您所说的是不是类似下面的脚本:
const forreading = 1
set objfso = createobject("scripting.filesystemobject")
set objoutputfile = objfso.createtextfile("output.txt")
strcomputer = "."
set objwmiservice = getobject("winmgmts:\\" & strcomputer & "\root\cimv2")
set filelist = objwmiservice.execquery _
("associators of {win32_directory.name='c:\logs'} where " _
& "resultclass = cim_datafile")
for each objfile in filelist
set objtextfile = objfso.opentextfile(objfile.name, forreading)
strtext = objtextfile.readall
objtextfile.close
objoutputfile.writeline strtext
next
objoutputfile.close
实际上,我们在此处执行的全部操作是获取 c:\logs 文件夹中所有文件的集合;这是通过以下 wmi associators of 查询实现的:
set filelist = objwmiservice.execquery _
("associators of {win32_directory.name='c:\logs'} where " _
& "resultclass = cim_datafile")
在获取这一集合后,我们可以立即使用 for-each 循环打开每个文件并读入其中的文本(使用 readall 方法,与上文中的代码相同)。然后关闭该文件,将文本附加到输出文件的末尾。接下来再执行一次循环,对集合中的下一个文件执行相同的过程。只需片刻,就可以将 c:\logs 中所有文件的所有文本提取出来,并将它们合并为一个名为 output.txt 的新文件。整个过程就是这么简单。
嗨,scripting guy!在命令提示符中,可以执行命令“copy a.txt+b.txt ab.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 末尾。事实上,我们必须使用类似下面的脚本:
复制代码 代码如下:
const forreading = 1
set objfso = createobject("scripting.filesystemobject")
set objoutputfile = objfso.createtextfile("output.txt")
set objtextfile = objfso.opentextfile("c:\logs\file1.log", forreading)
strtext = objtextfile.readall
objtextfile.close
objoutputfile.writeline strtext
set objtextfile = objfso.opentextfile("c:\logs\file2.log ", forreading)
strtext = objtextfile.readall
objtextfile.close
objoutputfile.writeline strtext
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 中的所有文件并将它们合并在一起,岂不是更好?嗯,我们还未曾这样想过。您所说的是不是类似下面的脚本:
const forreading = 1
set objfso = createobject("scripting.filesystemobject")
set objoutputfile = objfso.createtextfile("output.txt")
strcomputer = "."
set objwmiservice = getobject("winmgmts:\\" & strcomputer & "\root\cimv2")
set filelist = objwmiservice.execquery _
("associators of {win32_directory.name='c:\logs'} where " _
& "resultclass = cim_datafile")
for each objfile in filelist
set objtextfile = objfso.opentextfile(objfile.name, forreading)
strtext = objtextfile.readall
objtextfile.close
objoutputfile.writeline strtext
next
objoutputfile.close
实际上,我们在此处执行的全部操作是获取 c:\logs 文件夹中所有文件的集合;这是通过以下 wmi associators of 查询实现的:
set filelist = objwmiservice.execquery _
("associators of {win32_directory.name='c:\logs'} where " _
& "resultclass = cim_datafile")
在获取这一集合后,我们可以立即使用 for-each 循环打开每个文件并读入其中的文本(使用 readall 方法,与上文中的代码相同)。然后关闭该文件,将文本附加到输出文件的末尾。接下来再执行一次循环,对集合中的下一个文件执行相同的过程。只需片刻,就可以将 c:\logs 中所有文件的所有文本提取出来,并将它们合并为一个名为 output.txt 的新文件。整个过程就是这么简单。