SRER Not Returning Expected Results

[kylomas]

I'm trying to populate $title with whatever is on the line containing "#title#".

These tries are blanking out everything preceding #title# on that line and returning all other lines.

#include <array.au3>

;#title#          the title of this code

local $str = fileread(@ScriptFullPath)

;local $title = stringregexpreplace($str,'(?i).*?\#title\#(.+).*', '$1')
;local $title = stringregexpreplace($str,'(?im).*?\#title\#(.+).*', '$1')
;local $title = stringregexpreplace($str,'(?im)^.*?\#title\#(.+).*$', '$1')
;local $title = stringregexpreplace($str,'(?im)^.*?\#title\#(.+\R).*$', '$1')
local $title = stringregexpreplace($str,'(?im)\#title\#(.+)', '$1')

ConsoleWrite(@error & ' - ' & @extended & ' - ' & $title & @CRLF)

_arraydisplay($title)

exit

How can I return whatever follows #title# on that line only?

kylomas

more tries

;local $title = stringregexpreplace($str,'(?im).*?\#title\#(.+)$.*', '$1')
local $title = stringregexpreplace($str,'(?im).*?\#title\#(.+).*$', '$1')

I'm lost...

Edited March 1, 2015 by kylomas

[jchd]

local $title = stringregexp($str, '(?im)\#title\#(.+)', 1)

Aren't you making your life difficult?

[kylomas]

Hi jchd, been awhile...

I can get SRE to return the correct results all day long, can't figure out the SRER part...

[mikell]

Not very clear... do you want this ?

#include <array.au3>

;#title#          the title of this code

local $str = fileread(@ScriptFullPath)

local $title = stringregexpreplace($str, '(?s).*?#title#\s*(\N+).*', '$1')
Msgbox(0,"", $title)

[kylomas]

mikell,

Thanks, that did it, now to try to understand it...

How is this

How can I return whatever follows #title# on that line only?

 

not clear?

[mikell]

Please don't care, the antislashes everywhere in #title# caused me trouble 

N  matches anything except newline, so in (N+).* the engine stops backreferencing at the first newline encountered and .* is the whole rest of the string

Anyway jchd is right, the new array feature allows to get the expected string immediately and it's much easier

local $title = stringregexp($str, '#title#\s*(\N+)', 1)[0]

[kylomas]

Yea, I was going to give up and go with that except that the title may or may not appear...thanks for your help!

[jguinch]

You can also cheat to get an empty capture on failure :

$title = stringregexp($str, '#title#(\N+)|()$', 1)[0])

I don't know if it's a good idea, but it works and can be useful sometimes.

Edited March 1, 2015 by jguinch