parse question

Using Parse, how do I parse the following TITLE: bla bla bla LINE1: 123 TEST2: hello LINE3: LINE4: sfsjflk sfja;lfl sflajfldj asfjlsf sdfjlsf fddsfj ojijh TESTLINE: c LINE1: 456 TEST2: Bello LINE3: LINE4: eiuteptieot fls flksflasj dljf asfljd dlfj sfjlsf sdlkjsfj tyhjmuikl TESTLINE c LINE1: 789 TEST2: Kello LINE3: LINE4: lohlghkyju lkhgf oiu TESTLINE: c TITLE: vla va vla LINE1: 8123 TEST2: hellobla LINE3: LINE4: rtyu sfsjflk sfja;lfl sflajfldj aploik sfjlsf sdfjlsf fddsfj ojijh lala TESTLINE: c LINE1: 45677 TEST2: Bello ssf LINE3: LINE4: tgr eiuteptieot hytr fls flk sfla sj dljf hjas fljd dlfj sfjlsf sdlkjsfj tyhjmuikl TESTLINE: c LINE1: 76689 TEST2: Kriello LINE3: LINE4: hoho ohlghkyju ha ha lkhgf oiu TESTLINE: c to extract the following :- TITLE: bla bla bla LINE1: 123 TEST2: hello LINE1: 456 TEST2: Bello LINE1: 789 TEST2: Kello TITLE: vla va vla LINE1: 8123 TEST2: hellobla LINE1: 45677 TEST2: Bello ssf LINE1: 76689 TEST2: Kriello I don't want to use line by line approach with FIND. I am hoping there is a more elegant way with parse and less code to achieve this. I tried the following rule but it did not work. parse/all myInput [ some [ opt thru "TITLE" tO "LINE1" copy txnid to "LINE3" thru "LINE4" to "TESTLINE" ] ]

Source: title-rule: [keep ["TITLE:" thru newline]] line-rule: [keep [any space "LINE1:" thru newline]] test-rule: [keep [any space "TEST2:" thru newline] keep (newline)] rules: [ -collect [ --some [ ---title-rule --|-line-rule --|-test-rule- --|-skip- --] -] ] rejoin parse data rules Result: >> print do %delme2.red TITLE: bla bla bla LINE1: 123 TEST2: hello LINE1: 456 TEST2: Bello LINE1: 789 TEST2: Kello TITLE: vla va vla LINE1: 8123 TEST2: hellobla LINE1: 45677 TEST2: Bello ssf LINE1: 76689 TEST2: Kriello If you have tabs in your source, you need to fix `any space` to something like `any [space | tab]`. Also, it's written in Red's `parse` variant, so if you want to run it under Rebol, change `keep` to `copy value` and add `(append result value)` to the rule or something like that.

thanks Rebolek. Wow I have a long way to go, before I get to that level of code :-) I will need to digest your code and try to convert it into rebol. I have not played with Red yet, so still plodding along learning Rebol.