OpenEuphoria

RE: Replacing characters

• Posted by Mike <vulcan at win.co.nz> Feb 01, 2002
• 414 views

Hi Irv,

i think your solution only replaces a single character with another 
single character. if that is all Marcus wants then I suggest this 
one-liner:

string += (string = oldchar) *  (newchar - oldchar)

Mike

Irv Mullins wrote:
> On Friday 01 February 2002 05:00 pm, Marcus wrote:
> 
> > How do you search and replace characters in a  sequence?
> >
> > I need to replace \ with \\ and vice versa.
> >
> 
> You can create a sequence containing the locations of 
> any matching characters, and then replace those:
> 
> -- lightly tested :p
> 
> sequence text, matches
> atom pattern, replacement
> 
> puts(1,"Enter a string:\n")
> text = gets(0)
> pattern = '\\' -- have to escape a backslash
> replacement = '@'
> 
> matches = {}
> for i = 1 to length(text) do
>   if text[i] = pattern then
>   matches &= i
>   end if
> end for
> 
> ? matches -- see the list of places that matched
> 
> for i = 1 to length(matches) do
>   text[matches[i]] = replacement
> end for
> 
> puts(1,text)
> 
> Regards,
> Irv