Regsubbing

[Baerchen]

Hi,

Is it possible to put 2 different substitutions into one regsub? Say I want to regsub "1" by "one and "2" by "two".

regsub -all 1 $a one a
regsub -all 2 $a two a

does the job.

Is it possible to put that into _one_ regsub ?

[stdragon]

You could do it with one regsub and a subst. It's probably better to just do 2 regsubs though

set str "this is 1 test of 2 things"
set keys(1) one
set keys(2) two
regsub -all 1|2 $str {${keys(&)}} str
set str [subst $str]

Just make sure your source string doesn't have special characters in it

[Baerchen]

Hmm, thanks a lot.
My intention was to reduce the amount of regsubs by putting them all into one, but as it seems, it doesn't work. Anyway your solution is very interesting from a genral point of view. Thanks !

Baerchen

[Petersen]

personally i just like to write a proc for such things

eg

Code: Select all

proc myregsub {a} {
regsub -all 1 $a one a 
regsub -all 2 $a two a
return a
}

can then just regsub a string by doing [myregsub $blah] etc