Ler mais de uma linha em arquivo .txt ?

[Pablo Leonardelli 0]

Olá preciso criar um programa que faça uma varredura em um arquivo .txt e quando encontrar uma determinada string ele leia as próximas 2 linhas por exemplo digamos que no arquivo texto tenha as seguintes linhas:

 

Coordenadas

10

20

 

 

Quando o programa achasse a palavra "Coordenadas" ele me retornaria 10 20 . Alguma dica? Abaixo vai o código que desenvolvi porém está dando erro quando a linha chega em EOF a linha2 já passou de de EOF e o seguinte erro aparece: "Input past end of file" e o Debug me retorna a linha "Input Line #f1, linha2"

 

Private Sub cmdPesquisaPontos_Click()
Dim f1 As Long, f2 As Long
Dim linha As String
Dim linha1 As String
Dim linha2 As String
Dim i As Integer


f2 = FreeFile
Open Destino For Output As f2

f1 = FreeFile
Open ArquivoTexto For Input As f1
  Do While Not EOF(f1)
     Line Input #f1, linha
     Line Input #f1, linha1
     Line Input #f1, linha2

     If linha = "Coordenadas" Then

     Print #f2, linha
     Print #f2, linha1
     Print #f2, linha2

     End If
 Loop



  Close #f2
  Close #f1
End Sub

[KhaosDoctor 242]

Não terei tempo de lhe escrever um código aqui, mas você pode pesquisar a função

IndexOf()

ou então o

texto.Contains()

[Ramos_ML 0]

Simplifique !

 

Do While Not EOF(f1)

Line Input #f1, linha

If linha = "Coordenadas" Then

Print #f2, linha

Line Input #f1, linha

Print #f2, linha

Line Input #f1, linha

Print #f2, linha

End If

Loop

 

Leia as linhas seguintes somente SE encontrar "Coordenadas".

[KhaosDoctor 242]

If linha.Contains("Coordenadas")