how to extract certain lines out from a string

[iahngy]

Hi ,

I got a string with lines ..as below ..how can I use regex to extract  a group of 3 lines that has Byron in it ? 3 lines include machine , date and line of owner name. such as

Machine1
2/7/2014 6:00:00 PM - 2/10/2014 8:00:00 AM
(ABCbyron) place holder

 

-----------------------------------------------------------

 Day
 Time Line
 Week
 Month

    February 9 - February 15
 Sunday, February 09, 2014     Add      Machine123

Machine1
2/7/2014 6:00:00 PM - 2/10/2014 8:00:00 AM
(ABCbyron) place holder
Machine2
2/7/2014 6:00:00 PM - 2/10/2014 8:00:00 AM
(ABChaha) place holder
Machine3
2/7/2014 6:00:00 PM - 2/10/2014 8:00:00 AM
(ABCbrandon) place holder
Machine4
2/7/2014 6:00:00 PM - 2/10/2014 8:00:00 AM
(ABCChris) place holder
Machine5
2/7/2014 6:00:00 PM - 2/10/2014 8:00:00 AM
(ABCbyron) place holder
Machine6
2/7/2014 6:00:00 PM - 2/10/2014 8:00:00 AM
(ABCjoe) place holder
Machine7
2/7/2014 6:00:00 PM - 2/10/2014 8:00:00 AM
(ABCjoe) place holder

[jdelaney]

kind of a hack, but it works:

$string = FileRead("test2.txt")
$a = StringRegExp($string, "(.*[\r\n].*[\r\n]*.*\(ABC\\byron\) place holder)",3)
;
For $i = 0 To UBound($a)-1
    ConsoleWrite($a[$i] & @CRLF)
Next

or, to break up the lines within their groups (create array of arrays):

$string = FileRead("test2.txt")
$a = StringRegExp($string, "(.*)[\r\n](.*)[\r\n](.*\(ABC\\byron\) place holder)",4)
;
For $i = 0 To UBound($a)-1
    _ArrayDisplay($a[$i])
Next

Edited February 11, 2014 by jdelaney

[mikell]

A bit simpler

$string = FileRead("1.txt")
;$a = StringRegExp($string, "(.*[\r\n].*[\r\n]*.*\(ABC\\byron\) place holder)",3)
$a = StringRegExp($string, 'Machine\d+\R.+\R.+byron.+', 3)

For $i = 0 To UBound($a)-1
    msgbox(0,"", $a[$i])
Next

[Malkey]

An array free example.

local $sTestString = StringRegExpReplace(FileRead(@ScriptFullPath), "(?is)^.*#cs\s*(.+)#ce.*$","\1")
;ConsoleWrite($sTestString & @LF)

local $sResult = StringRegExpReplace($sTestString, "(?is).*?(\V+\v+\V+\v+\V*byron\V*\v+|$).*?","\1")
ConsoleWrite($sResult & @LF)

#cs
Day
 Time Line
 Week
 Month
    February 9 - February 15
 Sunday, February 09, 2014     Add      Machine123
Machine1
2/7/2014 6:00:00 PM - 2/10/2014 8:00:00 AM
(ABC\byron) place holder
Machine2
2/7/2014 6:00:00 PM - 2/10/2014 8:00:00 AM
(ABC\haha) place holder
Machine3
2/7/2014 6:00:00 PM - 2/10/2014 8:00:00 AM
(ABC\brandon) place holder
Machine4
2/7/2014 6:00:00 PM - 2/10/2014 8:00:00 AM
(ABC\Chris) place holder
Machine5
2/7/2014 6:00:00 PM - 2/10/2014 8:00:00 AM
(ABC\byron) place holder
Machine6
2/7/2014 6:00:00 PM - 2/10/2014 8:00:00 AM
(ABC\joe) place holder
Machine7
2/7/2014 6:00:00 PM - 2/10/2014 8:00:00 AM
(ABC\joe) place holder
#ce

[iahngy]

Thank you for the quick answers to Jdelaney, Mikell and Malkey.

I m very much appreciated.

I tried them all out. All wonderfull to know.

Malky, for the statement , local $sResult = StringRegExpReplace($sTestString, "(?is).*?(V+v+V+v+V*byronV*v+|$).*?","1")

.*? means 0 or more whatever infront those 3 lines ?

v+|$  means : either LF or end of string ?

This method to get stuff out of string is cool to know finally.
 

Edited February 12, 2014 by iahngy

[kylomas]

@Malkey - Why the "/s*" in the pattern to create your test data?  This example works with or without it.

edit:puctuation

Edited February 12, 2014 by kylomas

[mikell]

kylomas,

It works indeed 

But it's the best way to get the text from its real beginning, without the leading spaces/newlines

[kylomas]

@mikell - Thanks

@Malkey - been looking, on and off, for an easy way to create test data from forum examples, THANKS! 

Edited February 12, 2014 by kylomas

[guinness]

 

@Malkey - been looking, on and off, for an easy way to create test data from forum examples, THANKS! 

Check the AutoIt Wrappers Wiki, I created about 6/7 functions for creating test data.

[kylomas]

@guinness - Thanks

Edited February 12, 2014 by kylomas