String Operation

[caramen]

I am calculate a variable with string commands 

 

I got a random return like : 

1:Marie Dupont
2:Jean-Ethienne Durand
3:Elise Lucet
4:Mickael-Jacksone

How to transforme into 

1:MarieDupont
2:Jean-EthienneDurand
3:EliseLucet
4:Mickael-Jacksone

I tryed a lot of StringBetween 

I tryed StringMid 

Cant get this working  

[BrewManNH]

StringStripWS

[Malkey]

See StringRegExpReplace() or StringReplace().
 

Local $sString = _
        "1:Marie Dupont" & @CRLF & _
        "2:Jean-Ethienne Durand" & @CRLF & _
        "3:Elise Lucet" & @CRLF & _
        "4:Mickael-Jacksone"

ConsoleWrite("--- StringStripWS ---" & @CRLF)
ConsoleWrite(StringStripWS($sString, 8) & @CRLF & "---- StringRegExpReplace ---" & @CRLF)
ConsoleWrite(StringRegExpReplace($sString, "\h+", "") & @CRLF & "--- StringReplace ---" & @CRLF)
ConsoleWrite(StringReplace($sString, " ", "") & @CRLF)

#cs ; Returns:-
--- StringStripWS ---
1:MarieDupont2:Jean-EthienneDurand3:EliseLucet4:Mickael-Jacksone
---- StringRegExpReplace ---
1:MarieDupont
2:Jean-EthienneDurand
3:EliseLucet
4:Mickael-Jacksone
--- StringReplace ---
1:MarieDupont
2:Jean-EthienneDurand
3:EliseLucet
4:Mickael-Jacksone
#ce

 

[iamtheky]

Also, there is fun to be had with @Tekk's ASM character replace.  Though using a separator incorrectly is probably not the best choice, but its more for sport anyway.

Local $s = _
        "1:Marie Dupont" & @CRLF & _
        "2:Jean-Ethienne Durand" & @CRLF & _
        "3:Elise Lucet" & @CRLF & _
        "4:Mickael-Jacksone"

        msgbox(0, '' , StringReplaceAll($s , " " , ChrW("30")))

Func StringreplaceAll($sString, $sProbe, $sPatch)
    Local $tProc = DllStructCreate("BYTE ASM[20]") ;~ AutoIt allocates memory with execute rights?
                                                   ;~ I have NX bit enabled, I assumed issues if not explicitly giving execute rights
    $tProc.ASM = "0x" _
        & "8B742404"  _                         ;~     mov   esi, dword[esp+4] -> get start address (pointer) of the string
        & "AC"        _                         ;~ @@: lodsb                   -> load char from [esi] to al & increment esi by one
        & "3C00"      _                         ;~     cmp   al, 0             -> is char = 0
        & "740A"      _                         ;~     jz    @f                -> if yes then jump to return
        & "3C"        & Hex(Asc($sProbe), 2)  _ ;~     cmp   al, NNh           -> if not then compare with $sProbe
        & "75F7"      _                         ;~     jne   @b                -> if not equal then load next byte from string
        & "C646FF"    & Hex(Asc($sPatch), 2)  _ ;~     mov   byte[esi-1], NNh  -> if equal then replace with $sPatch
        & "EBF1"      _                         ;~     jmp   @b                -> load next byte from string
        & "C3"                                  ;~ @@: ret                     -> return

;~  Technically shouldn't we preserve esi?

    Return DllCallAddress("NONE:cdecl", DllStructGetPtr($tProc), "STR", $sString)[1]
EndFunc