用vbscript合并多個文本文件的代碼

2019-10-26 17:59:14

字體：大中小

來源：轉載

供稿：網友

問：
嗨，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 將包含第一個文件以及第二個文件中的所有信息。哈哈，我們成功了！

上一篇：VBS ArrayList Class vbs中的數組類

下一篇：用vbs計算某個詞在日志文件中的出現次數