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

问：
您好，脚本专家！如何仅读取文本文件的最后一行？
-- 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 的值。所有人只知道我们所做的是读取 - 返回 - 文件最后一行的值。
是的，很隐秘。
不可否认，此脚本存在一个潜在的问题。假设文件末尾添加了几行空白行。脚本将忠实地返回空（空值）作为文本文件的最后一行。这就是它应该做的：毕竟，文件的最后一行是空白。但是假设这是某种类型的日志文件，出于某种原因，创建此日志的应用程序总是将空白行放到文件末尾。在这种情况下，可能您真正感兴趣的是文件中最后的非空白行。下面是修改后的脚本，它使用 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

羡慕吧，知心姐姐！

赞 (0)

相关推荐

  • 用vbs实现读取文本文件的方法

    vbs读取文件方法Function readfile(readfilepath) 'On Error Resume Next     Set fs = CreateObject("Scripting.FileSystemObject")     Set file = fs.OpenTextFile(readfilepath, 1, false)     readfile=file.readall     file.close     set fs=nothing end Functio

  • 用vbs实现对文本文件中的项计数

    问: 嗨,脚本专家!如何向文本文件的顶部添加行? -- FT 答: 您好,FT.您知道,在亚瑟·柯南·道尔爵士生涯的某一时刻,他实际上将夏洛克·福尔摩斯写死了,他认为他已写完了有关这个大侦探所有能写的一切.公众的疾呼很快改变了他的想法,他迅速地使夏洛克·福尔摩斯起死回生.(按照所有肥皂剧的那种基本情节主线一路创作下来.) 我们脚本专家对亚瑟·柯南·道尔爵士深感同情.毕竟,我们会周期性地想,"好了,到这里吧:我们已编写了有关文本文件所有能编写的一切."我们刚有此想法,就立刻收到有关文本文

  • vbs删除文本文件的行的函数

    Delete Line Function 复制代码 代码如下: Function DeleteLine(strFile, strKey, LineNumber, CheckCase) 'DeleteLine Function by TomRiddle 2008 'Remove line(s) containing text (strKey) from text file (strFile) 'or 'Remove line number from text file (strFile) 'or

  • VBScript 文件操作代码小结

    创建文本文件 复制代码 代码如下: Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.CreateTextFile("C:\FSO\ScriptLog.txt") 检察文件是否存在 复制代码 代码如下: Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FileE

  • VBS文本文件操作实现代码

    对于文件的操作,例如:生成一个或者打开一个或者删除一个.txt格式文件.虽然官方的FILE插件提供了一些基本功能,但功能不多.你并不需要理解什么是fso模版,什么是vbs语句,直接套用下面的语句吧!红色字为自己定义的部分,蓝色字为任意选一部分 如果你看不懂,请参考下面的例子!操作同一个文件红色部分必须相同 请认真看括号内的解释内容定义一个名为fso的关系文件问题的对象,对于一个文件的操作只需写一次,此句必须写VBS Set fso = CreateObject("Scripting.FileSy

  • 用vbs对文本文件的内容进行排序

    问: 您好,脚本专家!我有一个包含计算机名称列表的文本文件.如何按照字母顺序对该文件进行排序? -- LR 答: 您好,LR.如果想偷懒的话,我们就会告诉您:"对不起,您不能这样做."我们也可以就此脱身,因为 Microsoft 的脚本编写技术中没有一个方法能在打开文本文件后对文件进行排序.不过,嗨,"脚本专家"什么时候偷过懒呢? 噢,对了,我们是偷过几次懒,不过希望所有的人都已经忘了.不过,这次我们将向您提供一个解决办法. 虽然没有能直接对文本文件进行排序的方法,

  • 使用VBS访问外部文本文件一些方法和脚本实例代码

    处理文件用到的常量有:ForReading = 1 ,ForWriting=2,ForAppending=8,用于的操作分别是读/写和追加,都要在使用之前用VBS Const来声明.常用于处理文本文件的方法有:Read(var)-读var个字符,ReadLine-读一行,ReadAll-读整个文件内容,SkipLine-跳过本行指向下一行,Write(var)-把字符串var写入文件,WriteLine(var)-把字符串var和换行符写入文件,WriteBlankLines(n)-写入n个换行

  • 用vbscript实现从文本文件中删除所有重复行的代码

    问: 您好,脚本专家!如何从文本文件中删除所有重复行? -- SW 答: 您好,SW.您知道,成为一名脚本专家便意味着开始永无止境地寻找给定问题的最终解决方案.(或者至少在我们的经理问为什么我们似乎从未真正完成什么时,我们是这么告诉他的:"老板,永无止境的寻找过程需要时间!")这就是为什么我们很高兴看到您的问题的原因.不久前 我们回答了一个关于从文本文件中删除重复名字的类似问题.我们想到的解决方案十分简单而且效果不错:只是我们不确定那是最佳解决方案.现在,很感谢您的问题,我们可以再次尝

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

    问: 您好,脚本专家!如何仅读取文本文件的最后一行? -- BM 答: 您好,BM.如果您曾经想知道您好,脚本专家!与其它每日专栏(比如,知心姐姐)的不同之处,那么,下面是一种途径.假设有人在给知心姐姐的信中说: 知心姐姐: 我的生活一团糟,我需要采取一些措施来应对.我如何能扭转我的生活并且重新快乐起来? 绝望之人于代顿 知心姐姐绝不会给绝望之人这样的答复: 亲爱的绝望之人: 唉,您的生活不能变好了.很抱歉. 那么,您认为脚本专家会如何答复您关于读取文本文件的最后一行呢?答对了: 亲爱的 BM:

  • 用vbs读取远程计算机上的文本文件的代码

    问: 您好,脚本专家!如何读取远程计算机上的文本文件? -- BM 答: 您好,BM.我们得承认:我们在利用您和您的问题来达成我们自己的邪恶目的.本周早些时候我们回答了有关如何读取一组文本文件最后一行的问题:在回答中,我们承诺将会说明如何使用 FileSystemObject 对远程计算机执行同样的功能.这并无恶意,只是为了维护本专栏的精神,除非有人提出有关对远程计算机上的文本文件进行处理的问题,我们是不会做出回答的.于是我们选择了您的问题. 因此,没错,我们在利用您.但如果往好处想,您的问题得

  • PowerShell读取文本文件指定行内容的方法

    本文介绍一个PowerShell中如何一步到位的获取到一个文本文件的第N行.比如一个文本文件,它有1000行,我想把第500行的内容直接取出来的,最简单的方法是通过PowerShell来实现. 在PowerShell中,可以通过Get-Content这个cmdlet来获取文本文件的内容.Get-Content将一个文本文件读取到一个数组中,每一个数组元素就是文件的一行内容.比如一个文本文件内容如下: 复制代码 代码如下: 111 222 333 那么,使用Get-Content获取到一个数组,数

  • Windows系统中使用C#读取文本文件内容的小示例

    读取文本文件中的内容 此示例读取文本文件的内容以使用 System.IO.File 选件类的静态方法 ReadAllText 和 ReadAllLines. class ReadFromFile { static void Main() { // The files used in this example are created in the topic // How to: Write to a Text File. You can change the path and // file n

  • JDK1.7 之java.nio.file.Files 读取文件仅需一行代码实现

    JDK1.7中引入了新的文件操作类java.nio.file这个包,其中有个Files类它包含了很多有用的方法来操作文件,比如检查文件是否为隐藏文件,或者是检查文件是否为只读文件.开发者还可以使用Files.readAllBytes(Path)方法把整个文件读入内存,此方法返回一个字节数组,还可以把结果传递给String的构造器,以便创建字符串输出.此方法确保了当读入文件的所有字节内容时,无论是否出现IO异常或其它的未检查异常,资源都会关闭.这意味着在读文件到最后的块内容后,无需关闭文件.要注意

  • python 读取文本文件的行数据,文件.splitlines()的方法

    一般跟踪训练的ground_truth的数据保存在文本文文件中,故每一行的数据为一张图片的标签数据,这个时候读取每一张图片的标签,具体实现如下: test_txt = '/home/zcm/tensorf/siamfc-tf-master/data/Biker/groundtruth.txt' def load_label_set(label_dir): label_folder = open(label_dir, "r") trainlines = label_folder.read

  • Python如何实现逐行读取文本文件

    Python如何实现逐行读取文本文件

    目录 Python 中的 open() 函数是什么 文件名和正确路径 open() 中的可选模式参数 Python 中 open() 函数的其他参数 Python 中的 read() 方法 Python 中的 close() 方法 Python 中的 readline() 方法 Python 中的 readlines() 方法 总结 在Python 中有几种方法可以读取文本文件. 在本文中,我将介绍 open() 函数.read() 方法.readline() 方法.readlines() 方法

  • VB实现按行读取文本文件的方法

    本文实例讲述了VB实现按行读取文本文件的方法.分享给大家供大家参考.具体如下: '(general declaration) Dim nFileNum As Integer, sText As String, sNextLine As String, lLineCount As Long '================================== Private Sub Command1_Click() ' Get a free file number nFileNum = Free

随机推荐