remove every other character

[WeMartiansAreFriendly]

i need to replace characters in a string lets say 1 is added every 3 characters, and the string is abcdefg so it becomes abc1def1g, what i want to do now is remove those extra characters and revert it back to abcdefg, is they possible?

Local $text ='', $realstring = 'abcdefg', $string = 'abc1def1g', $Step = 3


For $x = 1 to StringLen($string) Step $Step
    
    $text = StringMid($string, $x, $step) & StringMid($string, $x, -$step); StringRegExpReplace($string,'.*{3}','')
    
    $string = $text
Next
    
ConsoleWrite($realstring&@lf&$string)

Edited January 9, 2007 by mrRevoked

[WeMartiansAreFriendly]

i havent got much success with this code either, not much difference but still.

Local $text ='', $realstring = 'abcdefg', $string = 'abc1def1g', $Step = 3


For $x = 1 to StringLen($string) Step $Step
    
    $text = StringMid($string, 1, $step) & StringMid($string, $x, -$step); StringRegExpReplace($string,'.*{3}','')
    
    $string = $text
Next
    
ConsoleWrite('r; '&$realstring&@lf&'o; '&$string)

Edited January 9, 2007 by mrRevoked

[Danny35d]

If all you want is to remove 1 then use StringReplace.

Local $text ='', $realstring = 'abcdefg', $string = 'abc1def1g', $Step = 3

ConsoleWrite('r; '&$realstring&@lf&'o; '& StringReplace($string, '1', '') & @CRLF)

[WeMartiansAreFriendly]

i need to replace every nth characters. (nth can be 3 or whatever)

[SmOke_N]

Your example $Step shows 3, but it's actually the 4th char. Try this:

Local $realstring = 'abcdefg', $string = 'abc1def1g', $Step = 4
MsgBox(0, 'Info', 'Original string: ' & $realstring & @CR & 'Altered string: ' & _ReplaceChar($string, $Step))

Func _ReplaceChar($sString, $nReplace = 1)
    Local $sText = ''
    For $iCC = 1 To StringLen($sString)
        If Mod($iCC, $nReplace) Then $sText &= StringMid($sString, $iCC, 1)
    Next
    If $sText Then Return $sText
    Return SetError(1, 0, 0)
EndFunc

[WeMartiansAreFriendly]

hey, thanks SmOkEn, it worked great