私が言う.txtファイルを読みしようとしています.txtファイル

Question

を読みながら1行をスキップ：

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

私は「それは働いた！」「あなたがいる場合は、」唯一持ってしようとしているとしています真ん中の行「Reading this」をスキップして表示されます。 私のコードはループを終了し、「もしあなたなら」と表示します。これをどうやって変更できますか？

'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