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]

Answer 2

regsub -all "FS" $line "" line