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

2020-03-24 17:51:09

字體：大中小

來源：轉載

供稿：網友

問：
您好，腳本專家！如何僅讀取文本文件的最后一行？
-- BM
答：
您好，BM。如果您曾經想知道您好，腳本專家！與其它每日專欄（比如，知心姐姐）的不同之處，那么，下面是一種途徑。假設有人在給知心姐姐的信中說：
知心姐姐：
我的生活一團糟，我需要采取一些措施來應對。我如何能扭轉我的生活并且重新快樂起來？
絕望之人于代頓
知心姐姐絕不會給絕望之人這樣的答復：
親愛的絕望之人：
唉，您的生活不能變好了。很抱歉。
那么，您認為腳本專家會如何答復您關于讀取文本文件的最后一行呢？答對了：
親愛的 BM：
唉，您不能。很抱歉。
不過，請等一下，先不要走。的確，知心姐姐絕不會說，“您知道，Desperate，要使您快樂起來我無能為力。但是這有一個辦法可以使您看起來是快樂的?！比欢_本專家卻沒有這樣的疑慮。換句話說，我們無法為您提供僅讀取文本文件最后一行的腳本。但是以下腳本可以看起來僅讀取文本文件的最后一行：
復制代碼代碼如下:
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（用于處理文本文件的腳本對象）只知道一個方向：向前。它必須從文件開頭開始，而且只能繼續向文件的末尾運行。您無法指定其他起始位置且無法反向讀取（即從末尾到開頭）。實際上，您甚至無法重新讀取文件：除非關閉然后再重新打開該文件，否則到達文件末尾后您無法重新讀取該文件。這就是為什么涉及到文本文件時，教程的解決方法幾乎都是一樣的。
此處的解決方法是，我們實際上確實從頭至尾讀取整個文本文件。然而，我們只跟蹤所讀取的最后一行。讀到文件的末尾時，我們將得到一個變量，它包含所讀取的最后一行的值；它同時也是文件的最后一行?；仫@該變量的值時，看起來好像我們只讀取了最后一行（尤其是沒有其他東西要處理的時候，FileSystemObject 的速度非?？欤?。我們沒有 - 我們實際上讀取了整個文件 - 但是沒有人會知道。這將是我們的小秘密。
至于代碼本身，我們首先定義名為 ForReading 的常量并將其值設為 1；我們將使用該常量告訴 FileSystemObject 我們要打開待讀取的文本文件。然后，我們創建 Scripting.FileSystemObject 的一個實例，并且使用 OpenTextFile 方法打開文件 C:/Scripts/Test.txt。接下來是下面這個代碼塊：
復制代碼代碼如下:
Do Until objFile.AtEndOfStream
strLine = objFile.ReadLine
Loop

此處我們要做的只是逐行讀取文件，直到文件的末尾（即讀到文件流末尾）。每次讀取某行時，我們用剛讀取的文本替換變量 strLine 的值。例如，假設文本文件包含三行：
A

C
在我們的循環中讀取行 1，因此將值 A 賦給 strLine。在下一個循環中讀取第二行，這意味著將值 B 賦給 strLine。再循環一次并且將值 C 賦給 strLine。因為我們已到達文件末尾，故 strLine 保持值 C，該值恰好為文件的最后一行。然后關閉文件并回顯 strLine 的值。所有人只知道我們所做的是讀取 - 返回 - 文件最后一行的值。
是的，很隱秘。
不可否認，此腳本存在一個潛在的問題。假設文件末尾添加了幾行空白行。腳本將忠實地返回空（空值）作為文本文件的最后一行。這就是它應該做的：畢竟，文件的最后一行是空白。但是假設這是某種類型的日志文件，出于某種原因，創建此日志的html' target='_blank'>應用程序總是將空白行放到文件末尾。在這種情況下，可能您真正感興趣的是文件中最后的非空白行。下面是修改后的腳本，它使用 Len 函數檢查所讀取的每行的長度。如果長度等于 0，則意味著此行為空白行，便不在變量 strLine 中存儲該值：
復制代碼代碼如下:
Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:/Scripts/Test.txt", ForReading)
Do Until objFile.AtEndOfStream
strNextLine = objFile.ReadLine
If Len(strNextLine) 0 Then
strLine = strNextLine
End If
Loop
objFile.Close
Wscript.Echo strLine
羨慕吧，知心姐姐！
html教程

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

上一篇：VBS教程：VBScript 基礎-使用循環語句

下一篇：完整的注冊表操作實例 VBS腳本