用vbs讀取文本文件的最后一行

2019-10-26 17:58:57

字體：大中小

供稿：網(wǎng)友

問：
您好，腳本專家！如何僅讀取文本文件的最后一行？
-- BM
答：
您好，BM。如果您曾經(jīng)想知道您好，腳本專家！與其它每日專欄（比如，知心姐姐）的不同之處，那么，下面是一種途徑。假設(shè)有人在給知心姐姐的信中說：
知心姐姐：
我的生活一團糟，我需要采取一些措施來應(yīng)對。我如何能扭轉(zhuǎn)我的生活并且重新快樂起來？
絕望之人于代頓
知心姐姐絕不會給絕望之人這樣的答復(fù)：
親愛的絕望之人：
唉，您的生活不能變好了。很抱歉。
那么，您認為腳本專家會如何答復(fù)您關(guān)于讀取文本文件的最后一行呢？答對了：
親愛的 BM：
唉，您不能。很抱歉。
不過，請等一下，先不要走。的確，知心姐姐絕不會說，“您知道，Desperate，要使您快樂起來我無能為力。但是這有一個辦法可以使您看起來是快樂的。”然而腳本專家卻沒有這樣的疑慮。換句話說，我們無法為您提供僅讀取文本文件最后一行的腳本。但是以下腳本可以看起來僅讀取文本文件的最后一行：
復(fù)制代碼代碼如下:

Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:/Scripts/Test.txt", ForReading)
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
Loop
objFile.Close
Wscript.Echo strLine

我們此處遇到的問題是 FileSystemObject（用于處理文本文件的腳本對象）只知道一個方向：向前。它必須從文件開頭開始，而且只能繼續(xù)向文件的末尾運行。您無法指定其他起始位置且無法反向讀取（即從末尾到開頭）。實際上，您甚至無法重新讀取文件：除非關(guān)閉然后再重新打開該文件，否則到達文件末尾后您無法重新讀取該文件。這就是為什么涉及到文本文件時，教程的解決方法幾乎都是一樣的。
此處的解決方法是，我們實際上確實從頭至尾讀取整個文本文件。然而，我們只跟蹤所讀取的最后一行。讀到文件的末尾時，我們將得到一個變量，它包含所讀取的最后一行的值；它同時也是文件的最后一行。回顯該變量的值時，看起來好像我們只讀取了最后一行（尤其是沒有其他東西要處理的時候，F(xiàn)ileSystemObject 的速度非常快）。我們沒有 - 我們實際上讀取了整個文件 - 但是沒有人會知道。這將是我們的小秘密。
至于代碼本身，我們首先定義名為 ForReading 的常量并將其值設(shè)為 1；我們將使用該常量告訴 FileSystemObject 我們要打開待讀取的文本文件。然后，我們創(chuàng)建 Scripting.FileSystemObject 的一個實例，并且使用 OpenTextFile 方法打開文件 C:/Scripts/Test.txt。接下來是下面這個代碼塊：

上一篇：用vbs實現(xiàn)的確定共享文件夾的本地路徑？

下一篇：用vbs將名稱截斷以使其最多包含 16 個字符的代碼