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

Question

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

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

非常感谢。

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

但肖恩的评论似乎最合适

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

Inserting a dash between two words

tcl