从文本文件中读取第5行

Question

我必须通过vb脚本从日志文件中读取第5行。有人能指点我怎么做吗？

我使用下面的代码，它只读取最后一行和回送最后一行和行计数，需要增强它。

Dim fh, fso, sLastLine, lineCount

Set fso = CreateObject("Scripting.FileSystemObject")
Set fh = fso.OpenTextFile( "E:\Coding\VB\demo.txt" )
sLastLine = ""
lineCount = 0
Do Until fh.AtEndOfStream
    lineCount = lineCount + 1
    sLastLine =  fh.ReadLine()
Loop
fh.Close

WScript.Echo sLastLine
WScript.Echo lineCount

demo.txt的内容如下：

zcZcxZCsdfdfsfd
aaaaa
bbbb
cccc
dddd
eeee

最后有四个空白行，我必须读这里的"eeee“。

Answer 1

一个简单的解决方案是使用来自System.Collections.Queue框架的.net。它的工作原理很简单，而且不需要大量内存，因为在读取文本行时会丢弃它们，但它确实需要安装.net框架。任何版本的.net框架都可以。

Option Explicit

Const LastLinesCount = 5

Dim DemoFile : Set DemoFile = CreateObject("Scripting.FileSystemObject").OpenTextFile("demo.txt")
Dim Queue : Set Queue = CreateObject("System.Collections.Queue")
Dim i

Do While Not DemoFile.AtEndOfStream
    Queue.Enqueue DemoFile.ReadLine
    If Queue.Count > LastLinesCount then Queue.Dequeue
Loop

For i = 1 to LastLinesCount
    WScript.echo Queue.Dequeue
Next

DemoFile.Close

Answer 2

听起来你可以修剪末端，得到最后一行(没有测试)：

Set fso = CreateObject("Scripting.FileSystemObject")
Set fh = fso.OpenTextFile( "E:\Coding\VB\demo.txt" )
text = Trim(fh.ReadAll())
i = InStrRev(text, vbLf)
line = Mid(text, i + 1)

Answer 3

怎么样

Set fso = CreateObject("Scripting.FileSystemObject")
Set fh = fso.OpenTextFile("D:\demo.txt")
strin = Split(fh.readall, vbNewLine)
wscript.echo strin(fh.Line - 5)