VBScript从指定行读取TXT文件异常：始终从首行开始且耗时久

看起来你遇到的核心问题是文件读取逻辑错误，导致代码没有定位到目标行，反而从第一行开始读，同时大文件场景下因为无效操作导致耗时过长。我来帮你拆解问题并修复代码：

问题根源 #

当你用Scripting.FileSystemObject.OpenTextFile打开文件后，读取指针默认停在第一行开头。你的原代码直接从numberLine开始循环读取，相当于从第1行开始连续读8行（因为numberLineEnd = numberLine +7），完全没有跳过目标行之前的内容——这就是为什么你看到的总是第一行开始的内容。

另外，你的代码还有个拼写错误：strValor定义后却用了strValue调用，这会导致运行时错误，得先修正这个。

修复后的完整代码 #

'Call F_CMN_GRL_FindObjects(17,15)
strProperty = F_CMN_GRL_GlobalMain(6,17,15,0,"all items" )
strLine = split(strProperty,",")
Print strLine(0)
strValor = split(strLine(0)," ")
Print strValor(1) ' 修正拼写错误：strValue -> strValor
numberLine = strValor(1)
Call readFromLine(numberLine)

Function readFromLine(numberLine)
    numberLineEnd = numberLine + 7
    print numberLine
    print numberLineEnd

    Dim oFso : Set oFso = CreateObject("Scripting.FileSystemObject")
    Dim oFile : Set oFile = oFso.OpenTextFile("C:\myFile.txt", 1)

    ' 关键步骤：先跳过目标行之前的所有行（共numberLine-1行）
    Dim skipCount
    For skipCount = 1 to numberLine - 1
        ' 提前判断文件是否已读完，避免报错
        If oFile.AtEndOfStream Then Exit For
        oFile.ReadLine
    Next

    ' 读取目标范围的行
    Dim currentLine
    For currentLine = numberLine to numberLineEnd
        If oFile.AtEndOfStream Then Exit For ' 防止文件行数不足导致错误
        strLine = oFile.ReadLine
        print strLine
    Next

    ' 释放资源：关闭文件并销毁对象
    oFile.Close
    Set oFile = Nothing
    Set oFso = Nothing
End Function

关键修复点说明 #

• 跳过前置行：新增的skipCount循环会先把目标行之前的所有行读完，让文件指针精准定位到你要开始读取的行开头。
• 拼写错误修正：把strValue改为strValor，避免变量未定义的运行时错误。
• 边界防护：增加oFile.AtEndOfStream判断，防止目标行超出文件总行数时出现报错。
• 资源释放：读取完成后关闭文件并销毁FSO对象，避免资源占用，这也是VBScript的良好编程习惯。

关于耗时问题的解释 #

如果你的目标行号很大（比如几万行之后），原代码因为逻辑错误没有跳过前置行，可能会让你误以为代码在“定位”，但实际上是无效操作导致的额外耗时。修复后，代码只会读取必要的前置行来定位，之后直接读取目标范围，耗时会大幅降低。

内容的提问来源于stack exchange，提问作者Noemy Teran Romero