tcl搜索并替换多次出现

Question

我在html文件中有多行包含:

xxxxxx"./FSsacdss12s.tcl.html#::FSxxxxt_15" target="main">::FSxxxxxt</a></dt>
xxxxxx"./FSsacdss12s.tcl.html#::FSxxxxt_15" target="main">::FSxxxxxt</a></dt>
xxxxxx"./FSsacdss12s.tcl.html#::FSxxxxt_15" target="main">::FSxxxxxt</a></dt>

我想从每一行搜索并删除所有出现的FS,结果是:

xxxxxx"./sacdss12s.tcl.html#::xxxxt_15" target="main">::xxxxxt</a></dt>

我试过了:

set ToLft_ "^|\./|\[^a-zA-Z]|\::"
set ToRght_ "\[^a-zA-Z]|$" 
regsub -all ($ToLft_)FS($ToRght_) $line "" line 

没有任何成功..非常感谢任何建议!

问候,

Answer 1

最简单的方法是使用string map空字符串替换所有出现的"FS":

set line [string map {FS ""} $line]