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

2019-10-26 17:58:57

字体：大中小

来源：转载

供稿：网友

问：
您好，脚本专家！如何仅读取文本文件的最后一行？
-- 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。接下来是下面这个代码块：

上一篇：用vbs实现的确定共享文件夹的本地路径？

下一篇：用vbs将名称截断以使其最多包含 16 个字符的代码