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

2019-10-26 17:59:16

字體：大中小

來源：轉載

供稿：網友

問：
您好，腳本專家！如何計算 Failure 一詞在日志文件中的出現次數？這里有個問題：由于日志文件一個接一個地寫入事件，因而創建了一個非常之長的文本行。
-- FS
答：
您好，FS。根據您電子郵件的其余部分來看，您的日志文件與下面的有些相似：
Failure 2/7/2006 8:25 AM Failure 2/7/2006 9:45 AM Success
2/7/2006 3:10 PM Failure 2/8/2006 9:15 AM Success 2/7/2006 3:01 PM
正如您提到的，您首先想到的是使用 InStr 函數來查看是否 Failure 出現在日志文件中每行的某個地方；然后您可以通過活動計數器計算找到該詞的次數，這與我們在昨天的專欄中演示的方法非常相似。這是個好主意，但是，正如您所發現的，在該方案中有一個重大的缺陷：從技術角度來說，您的日志文件僅包含一行。因此，盡管實際存在很多實例，但您的腳本總是報告只發現 Failure 的一個實例。您在郵件中寫道：但是我被難住了，因為無法將單行拆為多行。
唉，您對我們一點信心都沒有。試試這個看看是不是合適：
復制代碼代碼如下:

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("c:/scripts/test.log", ForReading)
strContents = objFile.ReadAll
objFile.Close
i = 0
arrLines = Split(strContents, " ")
For Each strLine in arrLines
    If InStr(strLine, "Failure") Then
        i = i + 1
    End If
Next
Wscript.Echo "Number of failures: " & i

當然，我們還有其他一些方法也能夠解決此問題。我們采用此方法，因為它完全吻合您最初的想法，而且我們認為它對于每個人來說都非常容易理解。我們提到這一點只是為了防止有人讀到此處時想，“嘿，我可不會這么解決這個問題。”沒問題：這不是唯一的答案。它只是答案的一種。
好了，那么腳本本身呢？嗯，我們首先定義了一個名為 ForReading 的常量；我們會在稍后打開日志文件時使用此常量。接下來我們創建 Scripting.FileSystemObject 的實例并使用 OpenTextFile 方法打開文件 C:/Scripts/Test.log。文件打開后，我們使用 ReadAll 方法以將此文件的全部內容讀取到變量 strContents 中，然后關閉 Test.log 文件。
您清楚了嗎？接下來我們將值 0 賦于名為 i 的計數器變量；我們將使用 i 作為活動計數器來計算我們遇到 Failure 一詞的每個實例。然后我們使用下面這行代碼：

上一篇：用vbscript合并多個文本文件的代碼

下一篇：用vbs將名稱轉換為正確的大小寫的代碼