tcl - 在两个单词之间插入破折号

Question

我试图在单词 Joint Stereo 之间添加一个破折号，以使用 regsub 显示这个 Joint-Stereo，但无法正确放置。任何帮助，将不胜感激。这是片段

if { $mode == "Joint Stereo" } { regsub {(Joint Stereo)} $mode {\1-} mode putlog "$mode" }

提前谢谢了。

标签： tcl

Answer 1

有几种方法：

set mode [regsub " " $mode "-"]         ;# replace the first space
set mode [string map {" " "-"} $mode]   ;# replace all spaces
set mode [join $mode "-"]               ;# replace all spaces

但肖恩的评论似乎最合适