正確操縱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] 

瞧！ :-)