Find and copying text...

[Gintaras]

Macro Macro1526

Code:

Copy      Help

str s=
;aaaaaaaaaaaaaa
;bbbbbbbbbbbb
;** Start**
;Name: The General
;Date: 15/06/2011 19:18:05
;Title: Find and copying text...
;Code: Random
;Message: Possible multi
;Line
;
;Text
;** End**
;yyyyyyyyyyyyy
;zzzzzzzzzzz


ARRAY(str) a
str rx=
;\*\* Start\*\*
;Name: (.*)
;Date: (.*)
;Title: (.*)
;Code: (.*)
;Message: (?s)(.*)
;\*\* End\*\*

if(findrx(s rx 0 1|8 a)<0) out "not found"; ret

out a[1]
out a[2]
out a[3]
out a[4]
out a[5]