从数据文件 VB 脚本中读取下一行

我正在尝试获取数据标记文件的下一行，但是因为有多行具有相同的标记，所以它正在经历并获取最后一行，但我需要第一行。下面的示例标记文件。

Summary SA2100|7775555
Summary SUM100|9674555
Summary SUM100|8544555
Summary SUM100|8555554

由此得出的是 8555554 而不是 7775555。

我试图将第一行放在 if 条件中并将字符串设置为下一行，这可能吗？

if Left(strLine, 14) = "Summary SA2100" Then
        strSummary = mid(strNextLine, 16, 7)
End If 

有没有办法使用 StrNextLine 或类似的东西？

Thanks

也许您指的是这样的事情：

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\scripts\servers.txt", ForReading)

Do Until objTextFile.AtEndOfStream 
    strNextLine = objTextFile.Readline
    MsgBox strNextLine
Loop

VbsEdit http://www.vbsedit.com: 我不喜欢推荐工具，但是vbsedit.com http://www.vbsedit.com有一个试用版，无需许可证即可部分运行。我认为这会对你有很大帮助。我个人将其用作快速检查 COM 对象属性和方法的轻量级方法。

样本库 http://www.vbsedit.com/scripts/default.asp：此外，这是非常重要的部分，他们有一个大型示例库，只要您需要有关如何做有用的事情的快速提示，您就可以搜索该库。查看示例库 http://www.vbsedit.com/scripts/default.asp。以上片段改编自这个样本 http://www.vbsedit.com/scripts/misc/input/scr_1230.asp.

应用程序内有一个菜单，可以快速搜索整个图书馆，或者您可以在线搜索。在应用程序中，您可以通过以下方式搜索：Samples => Search Samples...。你会看到这个对话框：

UPDATE:

显然，更改数据文件的路径。在里面OpenTextFile method.

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Users\YourName\Desktop\test.txt", ForReading)

Do Until objTextFile.AtEndOfStream 
    strNextLine = objTextFile.ReadLine

    If Left(strNextLine, 14) = "Summary SA2100" Then
        strSummary = mid(strNextLine, 16, 7)
        MsgBox strSummary
        Exit Do
    End If

    'MsgBox strNextLine
Loop