Extract words from multi lines

[Lukas]

$sText = '<djsj>' & @CRLF & _
  '<asdsdd>' & @CRLF & _
  '<erwerds>' & @CRLF & _
  '<title>' & @CRLF & _
  'Hello ' & @CRLF & _
  'World!' & @CRLF & _
  '</title>' & @CRLF & _
  '<sdadas>' & @CRLF & _
  '<sfasd>' & @CRLF & _
  '<xczczx>' & @CRLF

$sResult = StringRegExpReplace($sText, "(.*v)*(s)*<title>(.*)</title>(v.*)*", "$3")
MsgBox(0, "", "Result: " & $sResult & @CRLF & @CRLF & "Should be like this: Hello World!")

Someone can help me, without using _StringBetween?

Edited May 9, 2012 by LukaS

[qsek]

@CRLF can be a bitch sometimes

(?s) is the way to go for multiline Regexes

$sText = '<djsj>' & @CRLF & _
  '<asdsdd>' & @CRLF & _
  '<erwerds>' & @CRLF & _
  '<title>' & @CRLF & _
  'Hello ' & @CRLF & _
  'World!' & @CRLF & _
  '</title>' & @CRLF & _
  '<sdadas>' & @CRLF & _
  '<sfasd>' & @CRLF & _
  '<xczczx>' & @CRLF

$sResult = StringRegExpReplace($sText, "(?s).*<title>(.*)</title>.*", "$1")
$sResult = StringReplace(StringReplace($sResult, @LF, ""), @CR, "")

ConsoleWrite("Result: " & $sResult & @CRLF & @CRLF & "Should be like this: Hello World!" & @CRLF)

[Lukas]

Thanks, works perfectly.