正确操纵TCL中的字符串

Question

看起来像一个基本任务，但我想要一个以某种东西结尾的字符串，并用其他东西替换最后3个字母。这里是我的尝试：

set v "this is bob" 
set index2 [string length $v] 
set index1 [expr $index2 - 3] 
set result [string replace $v index1 index2 dog] 
puts $result; # I want it to now say "this is dog" 

编辑：忘了提，它给我的错误信息是：

 
bad index "index1": must be integer?[+-]integer? or end?[+-]integer? 
    while executing 
"string replace $v index1 index2 .hdr" 
    invoked from within 
"set result [string replace $v index1 index2 .hdr]" 
    (file "string_manipulation.tcl" line 7) 

Answer 1

这是一种方法。 TCL识别标记，如end，end-1，end-2，......你想要的是从end-2到end取代：

set v "this is bob" 
set result [string replace $v end-2 end "dog"] 
# Result now is "this is dog" 

更新

如果你想要做的是替换文件扩展名，然后使用file rootname删除扩展，然后加上自己：

set v filename.arm 
set result [file rootname $v].hdr; # Replaces .arm with .hdr 

该解决方案具有不同长度，不举的扩展工作的优势st 3.

Answer 2

容易，你忘了你在TCL右侧接近尾声。您不是通过的值的索引1和索引2，而是传入字符串“index1”和“index2”。所以只需添加缺失的美元符号：

set result [string replace $v $index1 $index2 dog] 

瞧！ :-)