StringReplace... mirrored ?

[argumentum]

Exit test()
Func test()
    Local $sStr = "a ''' 123 ''' b"
    ConsoleWrite(@CRLF & StringReplace($sStr, "''", "*") & @CRLF & @CRLF) ; ' a *' 123 *' b '
EndFunc

That returns: ' a *' 123 *' b '
but I need ' a *' 123 '* b '

Edited October 2 by argumentum

[quymao2]

In your original string you have three ''', but in seaching parameter of String Replace, you put only two '' 
:))
the correct format is must be 

ConsoleWrite(@CRLF & StringReplace($sStr, "'''", "*") & @CRLF & @CRLF) ; ' a *' 123 *' b '

Edited October 2 by quymao2

[argumentum]

13 minutes ago, quymao2 said:

..the correct format is must be ..

Actually, I'd like to replace '' and not ''' but, I'd like the 2nd *' to be '*  😭

[Werty]

Exit test()
Func test()
    Local $sStr = "a ''' 123 ''' b"
    ConsoleWrite(@CRLF & StringReplace(StringLeft($sStr, StringLen($sStr)/2+1), "'''", "*'") & StringReplace(StringRight($sStr, StringLen($sStr)/2),  "'''", "'*") & @CRLF & @CRLF) ; ' a *' 123 *' b '
EndFunc

Not pretty but works 😛

[argumentum]

Exit test2()
Func test2() ; my solution. ..thanks to @quymao2 for the enlightment  =)
    Local $sStr = "a ''' 123 ''' b ''' 234 ''' c"
    While StringInStr($sStr, "'''")
    $sStr = StringReplace($sStr, "'''", "*'", 1)
    $sStr = StringReplace($sStr, "'''", "'*", 1)
    WEnd
    ConsoleWrite(@CRLF & $sStr & @CRLF & @CRLF) ; ' a *' 123 *' b '
EndFunc ; v2


Exit test()
Func test()
;~     Local $sStr = "a ''' 123 ''' b" ; a *' 123 '* b ; good
    Local $sStr = "a ''' 123 ''' b ''' 234 ''' c" ; a *' 123 *' b '* 234 '* c ; =(....
    ConsoleWrite(@CRLF & StringReplace(StringLeft($sStr, StringLen($sStr)/2+1), "'''", "*'") & StringReplace(StringRight($sStr, StringLen($sStr)/2),  "'''", "'*") & @CRLF & @CRLF) ; ' a *' 123 *' b '
EndFunc

yes, but if I want to do a longer string ...
@quymao2 gave me "a north" ( as Cubans say ), hence this solution  

Edited October 2 by argumentum
v2

[UEZ]

Func test3()
    Local $sStr = "a ''' 123 ''' b ''' 234 ''' c"
    ConsoleWrite(StringRegExpReplace($sStr, "'''([^']+)'''", "*'$1'*") & @CRLF)
EndFunc

 

[quymao2]

sorry , i did not got what you said clearly. this my way in your case :

Local $sStr = "a ''' 123 ''' b ''' 234 ''' c"
 $out = StringRegExpReplace($sStr,"\'{3}\s(\d+)\s\'{3}","\*\' $1 \'\*")
 ConsoleWrite($out)

 

[UEZ]

10 minutes ago, quymao2 said:

sorry , i did not got what you said clearly. this my way in your case :

Local $sStr = "a ''' 123 ''' b ''' 234 ''' c"
 $out = StringRegExpReplace($sStr,"\'{3}\s(\d+)\s\'{3}","\*\' $1 \'\*")
 ConsoleWrite($out)

 

 

"'''([^']+)'''", "*'$1'*"

[^'] means: any character except a single quote

+ means: one or more times

So this matches everything between the triple quotes like ''' 123 ''' and replace it with *' 123 '* (using *'$1'*).

[argumentum]

18 minutes ago, quymao2 said:

sorry , i did not got what you said clearly. this my way in your case :

Local $sStr = "a ''' 123 ''' b ''' 234 ''' c'''345'''d"
$out = StringRegExpReplace($sStr,"\'{3}\s(\d+)\s\'{3}","\*\' $1 \'\*") ; a *' 123 '* b *' 234 '* c'''345'''d
ConsoleWrite(@CRLF & $out & @CRLF & @CRLF) ; a *' 123 '* b *' 234 '* c'''345'''d

...but wait, there is more ! ( in TV commercial advertisement they use the "..but wait, there is more.." )
For a string of an unknown number of these ''' pairs, @UEZ's regex works best  

Edit: we posted quite consecutively  

Edited October 2 by argumentum

[jchd]

Regexes can save your a$$ everyday!