Как заменить определенный символ в строке скриптом 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"

Более подробную информацию можно найти здесь tcl string replacement

Answer 2

Использование regsub является излишеством для простых строк. Если вы просто хотите, чтобы заменить один набор подстрок с другой, string map ваш друг:

set s "Name/is/ComplexSTRUCTUre" 

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

Это, однако, заменит все нас с точками - в названии вашего вопроса в наводит на мысль.

Если, однако, вы хотите только первый U заменен - ​​как текст вашего вопроса подразумевает, то второй вариант AxT_8041 является наиболее подходящим.