Question

我正在尝试阅读.txt文件：

"If you are"
"Reading this"
"It worked!"

我试图只有“如果你是”和“它有效！”出现，跳过中间线“读这个”。我的代码退出循环，只显示“如果你是”。我怎么能改变这个？

'Declare variables
Dim objFSO, objReadFile, contents 

'Set Objects
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objReadFile = objFSO.OpenTextFile("M:\vbscripts\folder\read.txt") 

'Read file contents
Do While objReadFile.AtEndOfStream <> True
    contents = objReadFile.ReadLine
    If contents = "Reading this" then
        Exit Do
    End If
    WScript.Echo contents 
Loop

'Quit script
WScript.Quit()

Answer 1

当您遇到要跳过的线路时，请勿退出循环。只有当他们不包含有问题的文本时才输出行：

Do Until objReadFile.AtEndOfStream
    contents = objReadFile.ReadLine
    If Not InStr(contents, "Reading this") > 0 then
        WScript.Echo contents 
    End If
Loop

读取.txt文件时跳过一行

1 个答案: