File Search

[USMCGalloway]

I have looked around, and have found a lot of examples for looking through a file and looking for specific strings. I have not seen anything for getting the next line after a specific string is found. 

Example: 

Yada 

Yada

Yada

Yada

STRING

What I want, but do not know what the string is going to be

Yada

Yada

#include <File.au3>
#include<Array.au3>


$file = "C:\Users\Me\Documents\Test.txt"
FileOpen($file, 0)

For $i = 1 to _FileCountLines($file)
      $line = FileReadLine($file, $i)
     $knownString = "Current"   
      If $knownString  == StringLeft($line, 7) Then
         $e=0
         $c = $i + 1
         $array[$e] = FileReadLine($file, $c)
         $e = $e + 1
      EndIf      
Next
FileClose($file)

_ArrayDisplay($array)

The Error I am getting is:

(14) : ==> Expected a "=" operator in assignment statement.:

$array[$e] = FileReadLine($file, $c)

$array^ ERROR

 

Am I trying to use something as it is not suppose to be used?

 

As always any help is greatly appreciated. 

[BrewManNH]

Try it this way and eliminate a lot of things in your script that aren't necessary.

#include<Array.au3>


$file = "C:\Users\Me\Documents\Test.txt"
$hFile = FileOpen($hFile)
Local $knownString = "Current", $e = 0, $array[100], $line
While 1
    $line = FileReadLine($hFile)
    If @error = -1 Then ExitLoop
    If $knownString = StringLeft($line, 7) Then
        If UBound($array) >= $e Then ReDim $array[UBound($array) + 100]
        $array[$e] = FileReadLine($hFile)
        $e = $e + 1
    EndIf
WEnd
FileClose($hFile)
Redim $array($e + 1)
_ArrayDisplay($array)

Edited August 19, 2013 by BrewManNH

[USMCGalloway]

Thank you that is much cleaner that what I had worked up. 

[BrewManNH]

I updated the script above to eliminate the empty elements in the $array array after reading through the file. It's just a ReDim line above the _ArrayDisplay line.

[USMCGalloway]

Thanks again, I used a function Bowmore had posted a few year back '?do=embed' frameborder='0' data-embedContent>>  to delete the empty elements but yet again yours is a lot cleaner. 

[kylomas]

Because I read jchd's excellent rewrite of SRE Help file doc and THINK I understand them again...

local $filestr = 'Yada1' & @crlf & 'yada2' & @lf & 'yada3' & @cr & 'string' & @cr & 'The string that I want' & @crlf & 'yada4' & 'yada5'

ConsoleWrite(_srch('yada3') & @LF)
ConsoleWrite(_srch('what') & @LF)
ConsoleWrite(_srch('string') & @LF)

func _srch($str)

    local $aTmp = stringregexp($filestr,$str & '.*?\R(.*?)\R',3)
    if @error = 0 then
        return $aTmp[0]
    Else
        return 'Not found'
    EndIf

endfunc

kylomas