国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

嗨，DL。在昨天的專欄文章中，我們探討了有關(guān)文本文件的問題；更具體地講，我們討論如何使用腳本來修改 .INI 文件。我們提到，這種解決方法盡管不是很巧妙，但可以達到目的。就今天的問題來說，同樣是這種情況。我們可以使用腳本來合并文本文件嗎？是的，可以。只不過有一點繁瑣，但效果很好。

我們所遇到的難題是，WSH 和 VBScript 都無法通過一條命令來合并文本文件，例如，objFile.AddTextFiles("file1.log","file2.log")。這有點讓人失望，但我們不會就此罷手，我們依然可以合并文本文件；只不過需要多執(zhí)行幾個步驟罷了。例如，要將 File1.log 和 File2.log 合并為一個文件（我們將其命名為 Output.txt），需要先讀取 File1.log，將該文件的內(nèi)容附加到 output.txt 末尾，然后讀取 File2.log，再將該 文件的內(nèi)容附加到 Output.txt 末尾。事實上，我們必須使用類似下面的腳本：

Const ForReading = 1Set objFSO = CreateObject("Scripting.FileSystemObject")Set objOutputFile = objFSO.CreateTextFile("output.txt")Set objTextFile = objFSO.OpenTextFile("c:\logs\file1.log", ForReading)strText = objTextFile.ReadAllobjTextFile.CloseobjOutputFile.WriteLine strTextSet objTextFile = objFSO.OpenTextFile("c:\logs\file2.log ", ForReading)strText = objTextFile.ReadAllobjTextFile.CloseobjOutputFile.WriteLine strTextobjOutputFile.Close

正如您所看到的一樣，該腳本并不是特別復雜。首先，我們定義一個常量 (ForReading)，用于打開每個日志文件。接下來，創(chuàng)建一個 FileSystemObject（用于處理文本文件的腳本技術(shù)）實例，并使用 CreateTextFile 方法創(chuàng)建一個名為 Output.txt 的新文件。

然后，打開第一個文件 (C:\Logs\File1.log) 來讀取其中的內(nèi)容。我們使用 ReadAll 方法讀入整個文本文件，并將該信息存儲在變量 strText 中。然后，關(guān)閉 File1.log，并使用 WriteLine 方法將剛讀入的信息附加到新文件 Output.txt 的末尾。接下來，對下一個文件 (C:\Logs\File2.log) 執(zhí)行相同的過程。讀入第二個文件后，Output.txt 將包含第一個文件以及 第二個文件中的所有信息。哈哈，我們成功了！

我們知道您在想什么：不錯，盡管上述腳本可以實現(xiàn)目的，但問題是您必須“事先”知道文件夾 C:\Logs 中所有文件的名稱。那么，編寫一個腳本以獲取 C:\Logs 中的所有文件并將它們合并在一起，豈不是更好？嗯，我們還未曾這樣想過。您所說的是不是類似下面的腳本：

Const ForReading = 1Set 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 FileListSet objTextFile = objFSO.OpenTextFile(objFile.Name, ForReading)strText = objTextFile.ReadAllobjTextFile.CloseobjOutputFile.WriteLine strTextNextobjOutputFile.Close

實際上，我們在此處執(zhí)行的全部操作是獲取 C:\Logs 文件夾中所有文件的集合；這是通過以下 WMI Associators of 查詢實現(xiàn)的：

Set FileList = objWMIService.ExecQuery _("ASSOCIATORS OF {Win32_Directory.Name=‘C:\Logs‘} Where " _& "ResultClass = CIM_DataFile")

在獲取這一集合后，我們可以立即使用 For-Each 循環(huán)打開每個文件并讀入其中的文本（使用 ReadAll 方法，與上文中的代碼相同）。然后關(guān)閉該文件，將文本附加到輸出文件的末尾。接下來再執(zhí)行一次循環(huán)，對集合中的下一個文件執(zhí)行相同的過程。只需片刻，就可以將 C:\Logs 中所有文件的所有文本提取出來，并將它們合并為一個名為 output.txt 的新文件。整個過程就是這么簡單。