Visual Basicでテキストファイルを読むときに次の行に移動するには？

Question

テキストファイル "Test_Filename"：

test1の

test2は

test3に

TEST4

コード：

Open Test_Filename For Input As #3 

Do While Not EOF(3) 

    Line Input #3, strLine 
    If Left(strLine, 5) = "test2" Then 
     strData1 = "test2" + vbCrLf 
     strLine = "" 
     ' GO TO NEXT LINE 
    Else 
     ' GO TO NEXT LINE 
    End If 

    If (strData1 = "test2") And (Left(newstrLine, 5) = "test3") Then 
     strData2 = strData2 & newstrLine + vbCrLf 
     MsgBox (strData2) 
     Exit Do 
    End If 
Loop 

Close #3 

私は特定の条件を満たしたとき、私はへの希望次の林に行くe、しかし、私は方法がわからない... いくつかのアイデアがあれば、それは素晴らしいだろう。 ありがとう

Answer 1

Thisお手伝いをしてください。要するに、read.Readline()を使用する場合は、read.Readline()を再度実行するだけで次の行にスキップできます。参考まで

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Dim read As New System.IO.StreamReader("C:\New Text.txt") 
    Dim a As String 

    For Each a In read.ReadLine 
     If read.ReadLine.Equals("Test condition") Then 
      Label1.Text = read.ReadLine() 
     End If 
    Next 

    End Sub