如何用tcl腳本替換字符串中的特定字符？

Question

set some_string "Name/is/ComplexSTRUCTUre" 

轉換這個字符串，

some_string = "Name/is/ComplexSTR.CTUre" 

即更換第一"U"到"."

Answer 1

試試這個，

set replaced_string [regsub "U" $some_string "."] 
puts $replaced_string 

另一種選擇，

set pos [string first "U" $some_string] 
set replaced_string [string replace $some_string $pos $pos "."] 
puts $replaced_string 

這裏您"Name/is"部分不應包含任何"U"

更多信息可以在這裏使用的regsubtcl string replacement

Answer 2

發現是矯枉過正普通字符串。如果您只是要更換一組與另一子的，string map是你的朋友：

set s "Name/is/ComplexSTRUCTUre" 

set s [string map {U .} $s] 

然而，這將取代點所有我們 - 你的問題的標題建議。

但是，如果你只想要第一ü更換 - 爲文本你的問題意味着，然後AxT_8041的第二個選項是最合適的。