用vbs读取文本文件的最后一行
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
| 问： 您好，脚本专家！如何仅读取文本文件的最后一行？ --BM 答： 您好，BM。如果您曾经想知道您好，脚本专家！与其它每日专栏（比如，知心姐姐）的不同之处，那么，下面是一种途径。假设有人在给知心姐姐的信中说： 知心姐姐： 我的生活一团糟，我需要采取一些措施来应对。我如何能扭转我的生活并且重新快乐起来？ 绝望之人于代顿 知心姐姐绝不会给绝望之人这样的答复： 亲爱的绝望之人： 唉，您的生活不能变好了。很抱歉。 那么，您认为脚本专家会如何答复您关于读取文本文件的最后一行呢？答对了： 亲爱的BM： 唉，您不能。很抱歉。 不过，请等一下，先不要走。的确，知心姐姐绝不会说，“您知道，Desperate，要使您快乐起来我无能为力。但是这有一个办法可以使您看起来是快乐的。”然而脚本专家却没有这样的疑虑。换句话说，我们无法为您提供仅读取文本文件最后一行的脚本。但是以下脚本可以看起来仅读取文本文件的最后一行： 复制代码 代码如下: ConstForReading=1 SetobjFSO=CreateObject("Scripting.FileSystemObject") SetobjFile=objFSO.OpenTextFile("C:\Scripts\Test.txt",ForReading) DoUntilobjFile.AtEndOfStream strLine=objFile.ReadLine Loop objFile.Close Wscript.EchostrLine 我们此处遇到的问题是FileSystemObject（用于处理文本文件的脚本对象）只知道一个方向：向前。它必须从文件开头开始，而且只能继续向文件的末尾运行。您无法指定其他起始位置且无法反向读取（即从末尾到开头）。实际上，您甚至无法重新读取文件：除非关闭然后再重新打开该文件，否则到达文件末尾后您无法重新读取该文件。这就是为什么涉及到文本文件时，教程的解决方法几乎都是一样的。 此处的解决方法是，我们实际上确实从头至尾读取整个文本文件。然而，我们只跟踪所读取的最后一行。读到文件的末尾时，我们将得到一个变量，它包含所读取的最后一行的值；它同时也是文件的最后一行。回显该变量的值时，看起来好像我们只读取了最后一行（尤其是没有其他东西要处理的时候，FileSystemObject的速度非常快）。我们没有-我们实际上读取了整个文件-但是没有人会知道。这将是我们的小秘密。 至于代码本身，我们首先定义名为ForReading的常量并将其值设为1；我们将使用该常量告诉FileSystemObject我们要打开待读取的文本文件。然后，我们创建Scripting.FileSystemObject的一个实例，并且使用OpenTextFile方法打开文件C:\Scripts\Test.txt。接下来是下面这个代码块： 复制代码 代码如下: DoUntilobjFile.AtEndOfStream strLine=objFile.ReadLine Loop 此处我们要做的只是逐行读取文件，直到文件的末尾（即读到文件流末尾）。每次读取某行时，我们用刚读取的文本替换变量strLine的值。例如，假设文本文件包含三行： A C 在我们的循环中读取行1，因此将值A赋给strLine。在下一个循环中读取第二行，这意味着将值B赋给strLine。再循环一次并且将值C赋给strLine。因为我们已到达文件末尾，故strLine保持值C，该值恰好为文件的最后一行。然后关闭文件并回显strLine的值。所有人只知道我们所做的是读取-返回-文件最后一行的值。 是的，很隐秘。 不可否认，此脚本存在一个潜在的问题。假设文件末尾添加了几行空白行。脚本将忠实地返回空（空值）作为文本文件的最后一行。这就是它应该做的：毕竟，文件的最后一行是空白。但是假设这是某种类型的日志文件，出于某种原因，创建此日志的应用程序总是将空白行放到文件末尾。在这种情况下，可能您真正感兴趣的是文件中最后的非空白行。下面是修改后的脚本，它使用Len函数检查所读取的每行的长度。如果长度等于0，则意味着此行为空白行，便不在变量strLine中存储该值： 复制代码 代码如下: ConstForReading=1 SetobjFSO=CreateObject("Scripting.FileSystemObject") SetobjFile=objFSO.OpenTextFile("C:\Scripts\Test.txt",ForReading) DoUntilobjFile.AtEndOfStream strNextLine=objFile.ReadLine IfLen(strNextLine)>0Then strLine=strNextLine EndIf Loop objFile.Close Wscript.EchostrLine |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
关于用vbs读取文本文件的最后一行的所有评论
