用vbscript實現從后到前閱讀一個文本文件

2020-03-24 18:50:33

字體：大中小

來源：轉載

供稿：網友

問：
嗨，Scripting Guy！我有一個日志文件，新的數據總是被添加到文件的底部；也就是說最近的條目總是位于文件的末尾處。我想從最后一行開始讀取內容，直到文件的第一行，但是我不知道怎樣實現。

-- MB, Milwaukee, WI

答：
您好，MB.FileSystemObject 非常有用，但是它也具有它自己的一些限制；主要限制之一便是它只能從前向后讀取文件內容。和 Tail 工具不同，您不能要求 FileSystemObject 從后向前讀取文件。（好，我們假定您要求這么做，但是它肯定無法為您實現。）

但是，沒有關系，正如使用腳本做其他事情一樣，您總能找到一個辦法沖破這種限制的束縛。在這種情況下，我們所做的就是繼續向前，從前向后讀取文件，從第一行還是，到最后一行結束。但是，和立即將這些行顯示在屏幕上不同，我們將它們保存在一個數組里，文件中的每一行代表數組中的一個元素。

我們為什么要這樣做？好，現在我們有了一個下面這樣的數組，保存了文本文件中的信息：

violet
indigo
blue
green
yellow
orange
red

不可否認的是，我們現在所做的就像重新發明輪子一樣。不過，文本文件和數組之間有一個重要的不同之處：從后向前讀取數組非常容易。我們將要腳本從數組中的最后一個項目開始（我們可以使用 Ubound 函數來確定）并且從后向前讀取到數組的第一個項目（Lbound）。

在我們的示例數組中，有 7 個項目；最后一個項目（Ubound）是單詞 red，第一個項目（Lbound）是單詞 violet。數組中的第一個項目的下標為 0；所以 violet 的下標為 0，red 的下標為 6。我們的腳本將從項目 6 開始向前到項目 0 為止。那怎樣實現呢？我們將參數 Step 設為 -1，也就表示，“找到項目 6 ，然后對它做點什么；然后將下標減 1，得到 5。在找到項目 5 ，再對它做點什么。重復這個過程，直到處理完了數組中的所有項目?！?

具體的實現代碼如下所示：

Dim arrFileLines()
i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:/FSO/ScriptLog.txt", 1)
Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
For l = Ubound(arrFileLines) to LBound(arrFileLines) Step -1
Wscript.Echo arrFileLines(l)
Next

如果您沒有使用過數組，可能看起來有點糊涂，但是在熟悉了它之后，便會發現它實際上很簡單。

好，我們從后向前讀取文件的輸出結果如下所示：

red orange yellow green blue indigo violet
有關數組使用的更多信息，請參閱Microsoft Windows 2000 腳本編寫指南.

html教程

鄭重聲明：本文版權歸原作者所有，轉載文章僅為傳播更多信息之目的，如作者信息標記有誤，請第一時間聯系我們修改或刪除，多謝。

上一篇：vbs AD日志開啟腳本nableKerbLog的腳本

下一篇：VBS模擬POST上傳文件的代碼