StringRegExpReplace - Help

[FaridAgl 39]

Take a look at this codes please:

$sString = 'AutoIt Test(1.26a) (243)'
ConsoleWrite(StringRegExpReplace($sString, '', '') & @CRLF) ;Desired output: AutoIt Test(1.26a)

$sString = 'Some Text(new Version)    (21)'
ConsoleWrite(StringRegExpReplace($sString, '', '') & @CRLF) ;Desired output: Some Text(new Version)

$sString = 'Blah Blah(Blah Blah Blah)(8)'
ConsoleWrite(StringRegExpReplace($sString, '', '') & @CRLF) ;Desired output: Blah Blah(Blah Blah Blah)

Let me explain a little more.

I have an input string in the following format:

Some text include chars, numbers etc + (some text again, include chars, numbers etc) + (1, 2, or 3 digits)

Example: "Hello world! 123 (Hello again!) (24)" -> Desired output: "Hello world! 123 (Hello again!)"[/autoit]

The goal is to remove the last parentheses with whatever is inside.

Thanks.

[guinness 1,455]

Local $aArray[4] = [3]

$aArray[1] = 'AutoIt Test(1.26a) (243)'
ConsoleWrite(StringRegExpReplace($aArray[1], '(V+)s+(d{3})$', '1') & @CRLF) ; Desired Output: AutoIt Test(1.26a)

$aArray[2] = 'Some Text(new Version)    (21)'
ConsoleWrite(StringRegExpReplace($aArray[2], '(V+)s+(d{2})$', '1') & @CRLF) ; Desired Output: Some Text(new Version)

$aArray[3] = 'Blah Blah(Blah Blah Blah)(8)'
ConsoleWrite(StringRegExpReplace($aArray[3], '(V+)(d)$', '1') & @CRLF & @CRLF) ; Desired Output: Blah Blah(Blah Blah Blah)

; This will work on all.
For $i = 1 To $aArray[0]
    ConsoleWrite(StringRegExpReplace($aArray[$i], '(V+)s*(w*)$', '1') & @CRLF)
Next

[guinness 1,455]

You could have done this with StringInStr, StringLeft and StringStripWS.

Edited September 13, 2012 by guinness

[FaridAgl 39]

Thank you, it works perfectly.

Yes, acctually I was thinking about that before you post the StringRegExpReplace's solution.

Thank you again.

[guinness 1,455]

Don't believe me? Here >>

Local $aArray[4] = [3]

$aArray[1] = 'AutoIt Test(1.26a) (243)'
$aArray[2] = 'Some Text(new Version)    (21)'
$aArray[3] = 'Blah Blah(Blah Blah Blah)(8)'

; This will work on all.
For $i = 1 To $aArray[0]
    ConsoleWrite(StringStripWS(StringLeft($aArray[$i], StringInStr($aArray[$i], '(', 2, -1) - 1), 3) & @CRLF)
Next

[FaridAgl 39]

Mean and lean, thaks again.