String problems

[byoda]

All,

I want to open a file, search the file for a keyword, grab 10 lines after the keyword and then write it into another file. I am able to open, search and locate the keyword, but I cant figure out how to get the 10 lines after the keyword and then writting them into a file. Thanks.

$file=FileOpen("C:\file.txt")

$read=FileRead($file)

If StringRegExp($read, "keyword")Then

;Copy the next 10 lines

;Write into another file

[clonetrooper9494]

This would how I would attack the problem. I would use StringSplit and use $var[2] and split that by @CR, then from that array loop through it combine $var[1] through $var[11] in to one variable and save it to another file.

something like...

$filepart = StringSplit($file_contents,"keyword")
$lines = StringSplit($filepart[2],@CR)
$compiled_array = ""
For $i = 0 To 10
  $compiled_array &= $lines[$i+1] $ @CR;add back the line break
Next

My code isn't perfect though

Edited June 16, 2010 by clonetrooper9494

[UEZ]

Here my 1st idea:

Local $i, $x, $line, $file, $keyword

$keyword = "Line15"
$file = FileOpen("c:\file.txt", 0)
$new_file = FileOpen("c:\file_new.txt", 2)
$i = 2
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    If StringInStr($line, $keyword) > 0 Then
        For $x = $i To $i + 10
            FileWriteLine($new_file, FileReadLine($file, $x))
        Next
        ExitLoop
    EndIf
    $i += 1
WEnd
FileClose($file)
FileClose($new_file)

BR,

UEZ

Edited June 16, 2010 by UEZ

[byoda]

Here my 1st idea:

Local $i, $x, $line, $file, $keyword

$keyword = "Line15"
$file = FileOpen("c:\file.txt", 0)
$new_file = FileOpen("c:\file_new.txt", 2)
$i = 2
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    If StringInStr($line, $keyword) > 0 Then
        For $x = $i To $i + 10
            FileWriteLine($new_file, FileReadLine($file, $x))
        Next
        ExitLoop
    EndIf
    $i += 1
WEnd
FileClose($file)
FileClose($new_file)

BR,

UEZ

Worked like a champ. Thank you very much.

[byoda]

Here my 1st idea:

Local $i, $x, $line, $file, $keyword

$keyword = "Line15"
$file = FileOpen("c:\file.txt", 0)
$new_file = FileOpen("c:\file_new.txt", 2)
$i = 2
While 1
    $line = FileReadLine($file)
    If @error = -1 Then ExitLoop
    If StringInStr($line, $keyword) > 0 Then
        For $x = $i To $i + 10
            FileWriteLine($new_file, FileReadLine($file, $x))
        Next
        ExitLoop
    EndIf
    $i += 1
WEnd
FileClose($file)
FileClose($new_file)

BR,

UEZ

One last thing. If I run 2 of these in a row, the first ouput in the file is erased. I thought it might be the FileWriteLine, so I changed it to FileWrite, but it still erases the first output. Any suggestions? Thanks.

[sahsanu]

One last thing. If I run 2 of these in a row, the first ouput in the file is erased. I thought it might be the FileWriteLine, so I changed it to FileWrite, but it still erases the first output. Any suggestions? Thanks.

You should open the file in mode 1 -> "Write mode (append to end of file)". Take a look to FileOpen help

$new_file = FileOpen("c:\file_new.txt", 1)