searching a text file

[manontheedge]

Private Sub readFile()
    
    Open "example.txt" For Input As #1

    Dim sInputData As String
    
    While Not EOF(1)
        
        Line Input #1, sInputData   

        If InStr(1, sInputData, "word") Then

            tbDataIn = tbDataIn & vbCrLf & sInputData

        End If
    
    Wend
    
    Close #1

this is how I'm reading a file basically. I'm curious if it's possible to search a file with text such as

___AAA
111
222
333
___BBB
333
222
___CCC
555

(the underscores are there to show a space)
...and what I want to do, is read that data in, and search for "AAA" for example (which isn't a problem), but when I find what i'm searching for, I want to pull the next lines out with it UNTIL i get to another line that starts with a space. So, if i search for "AAA", the result would be...

AAA
111
222
333

[Killer42]

Just set a flag when you find your starting line (AAA), then clear the flag or exit your loop when you see the ending line. Something like...

Start Loop
  Get line from file
  If flag is set Then
    If Line starts with space Then
      Clear Flag (or exit loop)
    Else
      Process this line
    End If
  Else
    If AAA Then
      Set Flag
    End If
  end If

Disclaimer: The above is not valid Visual Basic syntax. :)

[ChillUmesh]

after u got the searched string then
code:
do
read next line
loop until (mid(line,1,1)= " ") ' u can read till another line starts with " "