[TCL] regsub spaties naar *

[Tweaqer]

Hoi hoi

Ik heb een probleempje met tcl Ik wil namelijk in $arg de spaties vervangen door een *.
Ik denk dus, eitje dat doen we ff zo;
regsub -all {[ \t]+} $arg {*} arg_edit_1
Helaas geeft dit een error. Maar dit werkt weer wel;
regsub -all {[ \t]+} $arg { * } arg_edit_1
Alleen geeft dit weer spaties (text * text)
Dus ik heb eigenlijk 2 vragen die tot dezelfde oplossing leiden;
- hoe tover ik uit arg_edit_1 die spaties weg
- hoe zorg ik dat de regsub die spaties er niet bijhaald in arg_edit_1?

Dank u voor het meedenken allemaal

[ Voor 6% gewijzigd door Tweaqer op 04-06-2005 21:49 ]

[Kanarie]

Angelgamer schreef op zaterdag 04 juni 2005 @ 21:46:
Hoi hoi

Ik heb een probleempje met tcl Ik wil namelijk in $arg de spaties vervangen door een *.
Ik denk dus, eitje dat doen we ff zo;
regsub -all {[ \t]+} $arg {*} arg_edit_1
Helaas geeft dit een error. Maar dit werkt weer wel;
regsub -all {[ \t]+} $arg { * } arg_edit_1
Alleen geeft dit weer spaties (text * text)
Dus ik heb eigenlijk 2 vragen die tot dezelfde oplossing leiden;
- hoe tover ik uit arg_edit_1 die spaties weg
- hoe zorg ik dat de regsub die spaties er niet bijhaald in arg_edit_1?

Dank u voor het meedenken allemaal

Al geprobeerd de * vooraf te laten gaan door een "\" ?

regsub -all {[ \t]+} $arg {\*} arg_edit_1

edit:
werkt niet, wordt blaat/*blaat/*

Je originele code werkt hier overigens wel?

[ Voor 13% gewijzigd door Kanarie op 04-06-2005 21:59 ]

[Tweaqer]

regsub -all {[ \t]+} $arg {*} arg_edit_1

heel vreemd, bij mij geeft hij een error (windrop?) weet je toevallig niet hoe ik hier de spaties uit kan halen? strip spaces $arg_edit ofzo?

[ Voor 13% gewijzigd door Tweaqer op 04-06-2005 22:39 ]