用vbscript實現從后到前閱讀一個文本文件
2020-07-26 12:00:55
供稿：網友
問：
嗨，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 腳本編寫指南.
