Finding Text in txt, then looking under it.

[Dracil]

Ok i have a scripts that scans my txt file for a "text, in this example its gregor,

$file = FileOpen("folderlist.txt", 0)
$read = FileRead($file)
If @error = -1 Then
    MsgBox(0, "Error", "File not read")
    Exit
Else

    If StringRegExp($read, "gregor") Then
        MsgBox(0, "Oops", "Match")
    Else
        MsgBox(0, "Oops", "No match")
    EndIf
EndIf
FileClose($file)

Now what i would like to do is, IF and WHEN i find "gregor" in the txt file i would like to grab everything between it and for example "gregor" & "end", so "gregorend"

So lets say it looks like this in the txt file:

gregor

Hello my name

Is Gregor

gregorend

How do i grab "

Hello my name

Is Gregor"

Ive tried the help file and searched the forum but i cant fint it =/

I would really appreaciate help with this!

Thanks in advance

[GEOSoft]

$sTxt = "gregor" & @CRLF
$sTxt &= "Hello, my name" & @CRLF
$sTxt &= "is Gregor." & @CRLF
$sTxt &= "gregorend"
$aSRE = StringRegExp($sTxt, "(?i)gregor\s*([\w\s,]+[.?!]*)\s*gregorend", 1)
If NOT @Error Then
   MsgBox(0, "Result", StringStripWS($aSRE[0], 3))
EndIf

[Dracil]

Thanks!, Ok it looks like this now:

$file = FileOpen("folderlist.txt", 0)
$read = FileRead($file)
If @error = -1 Then
    MsgBox(0, "Error", "File not read")
    Exit
Else


    If StringRegExp($read,"gregor") Then

$aSRE = StringRegExp($read, "(?i)gregor\s*([\w\s,]+[.?!]*)\s*gregorend", 1)
        MsgBox(0, "Yes", StringStripWS($aSRE[0], 3))


    Else
        MsgBox(0, "Oops", "No match")
    EndIf
EndIf
FileClose($file)

And it works great!, BUT!

As long a the text in between gregor and gregorend is a maximum of 3 rows, if its more it wont work, why is that and how can i change that?

Thanks!

Edited December 26, 2009 by Dracil

[Malkey]

Try this.

#include <String.au3>

$read = "So lets say it looks like this in the txt file: gregor Hello my name" & @CRLF & _
        "Is Gregor" & @CRLF & _
        "gregorend" & @CRLF & _
        "How do i grab " ; FileRead($file)

If StringInStr($read, "gregor") And StringInStr($read, "gregorend") Then
    MsgBox(0, "In Between", StringRegExpReplace($read, "(?s)(?:.*gregor\s)(.*)(?:\sgregorend.*)", "\1"))
Else
    MsgBox(0, "Oops", "No match")
EndIf

[Dracil]

That works great ! thanks! What if i want the $read should include data from a website? And the whole website lets say www.google.se ? And that without having to actually open the browser.

Edited December 27, 2009 by Dracil

[GEOSoft]

See InetRead() and BinaryToString()