How Replace Between This String

[Gianni]

seems that all regexps from above posts (but jguinch's #9) have issues if $sString begins with something like "| & |"

[Alex1986]

StringRegExpReplace does not have a "searchstring/start" similar in StringReplace

#include <String.au3>
Local $sString = "|Autoit| , |For| , |All| "
local $sReplace[3] = ["ALEX-0" , "ALEX-1" , "ALEX-2"]
Local $DATA , $i = 0

$sStringBetween = _StringBetween($sString , "|" , "|")

For $x = 0 To UBound($sStringBetween) - 1
    If Not BitAND($x,1) Then
      $DATA &=  StringReplace($sString , $sStringBetween[$x] ,  $sReplace[$i]) & @CRLF
      $i += 1
    EndIf
Next
Msgbox(0,"", $DATA)

this problem repeat 

|ALEX-0| , |For| , |All|

|Autoit| , |ALEX-1| , |All|

|Autoit| , |For| , |ALEX-2|

i want this

|ALEX-0| , |ALEX-1| , |ALEX-2|

 

 

 

[jchd]

This?

Local $sString = "|Autoit| , |For| , |All| "
Local $sReplace[3] = ["ALEX-0" , "ALEX-1" , "ALEX-2"]
Local $DATA, $i

$DATA = Execute('"' & StringRegExpReplace($sString , '\|[^|]*\|' ,  '|" & $sReplace[_PostInc($i)] & "|') & '"')
Msgbox(0,"", $DATA)

Func _PostInc(ByRef $n)
    $n += 1
    Return $n - 1
EndFunc

 

[Alex1986]

This?

Local $sString = "|Autoit| , |For| , |All| "
Local $sReplace[3] = ["ALEX-0" , "ALEX-1" , "ALEX-2"]
Local $DATA, $i

$DATA = Execute('"' & StringRegExpReplace($sString , '\|[^|]*\|' ,  '|" & $sReplace[_PostInc($i)] & "|') & '"')
Msgbox(0,"", $DATA)

Func _PostInc(ByRef $n)
    $n += 1
    Return $n - 1
EndFunc

 

If this $sString Tow Line or more lines ,  How Replace
Example :

Local $sString = "|Autoit| , |For| , |All|" & @CRLF & "|Thank| , |You| , |For| , |Help|"
Local $sReplace[7] = ["ALEX-1" , "ALEX-2" , "ALEX-3" , "ALEX-4" , "ALEX-5" , "ALEX-6" , "ALEX-7"]

[mikell]

Did you even test jchd's code with your new requirements ?

[iamtheky]

and the replace array is not needed

Local $sString = "|Autoit| , |For| , |All|" & @CRLF & "|Thank| , |You| , |For| , |Help|"
Local $DATA, $i = 1

$DATA = Execute('"' & StringRegExpReplace($sString , '\|[^|]*\|' ,  '|" & "ALEX-" & _PostInc($i) & "|') & '"')
Msgbox(0,"", $DATA)

Func _PostInc(ByRef $n)
    $n += 1
    Return $n - 1
EndFunc

 

[jguinch]

Without loop :

Local $sString = "|Autoit| , |For| , |All|" & @CRLF & "|Thank| , |You| , |For| , |Help|"
$DATA = Execute("'" & StringRegExpReplace($sString, "(?<=\|)\h*[^|&,\r\n]+\h*(?=\|)", "Alex' & Eval('__iCount') * Assign('__iCount', Eval('__iCount') + 1) + 1 & '") & "'")
Msgbox(0,"", $DATA)