How to insert "#" comment off to the specific keyword by using Tcl?

user_16320934 0
Viewed 62

Is that any way in TCL to insert the (#) comment off by searching cfg keyword?

-->Before

abcd abcd abcd
cfgabc abcd abcd
cfgcdd abc abc
abcd abcd abcd
cfgabc abcd abcd

-->After run the tcl

abcd abcd abcd
#cfgabc abcd abcd
#cfgcdd abc abc
abcd abcd abcd
#cfgabc abcd abcd
tcl
2 Answers

you can use regsub:
regsub -all {cfg} $str {#cfg}

EDIT
For finding cfg anywhere in the string and commenting this line (as requested in the comments):
regsub {(.*)cfg(.*)} $str {#\1cfg\2}
e.g.

set str "bla lkjhcfglkj"
bla lkjhcfglkj
regsub {(.*)cfg(.*)} $str {#\1cfg\2}
#bla lkjhcfglkj

This is much riskier and requires more attention and caution.

user_21410460

If you're looking for the three letters cfg at the beginning of a line, that's pretty easy to do with regsub. In particular, the -line option helps a lot with this.

regsub -all -line {^cfg} $str "#cfg"

Note that caution should be taken with this sort of thing: it's extremely easy to either over- or under-match lines. Check the results by hand! (Hopefully it'll be easier than doing lots of edits by hand.)

user_3018320
Related