View/Edit #8495:rab replace_all_but

Switch to edit mode.

1:  text = `args[1] ! ANY => ""'
2:  ex = `args[2] ! ANY => ""'
3:  rep = `args[3] ! ANY => " "'
4:  text = tostr(text)
5:  if (length(text))
6:    ex = $string_utils:char_list(tostr(ex))
7:    rep = `tostr(rep)[1] ! ANY => " "'
8:    texter = ""
9:    for a in [1..length(text)]
10:     texter = texter + (text[a] in ex ? text[a] | rep)
11:   endfor
12:   return texter
13: else
14:   return text
15: endif
16: "Last modified by Vladmir (#3936) on Mon Mar 31 02:52:46 2003 MST."

[home | help | who | search | setup | code]