tcl-otcl 腳本：lreplace（替換、刪除）

       lreplace：替換 / 刪除 指定 索引位置 / 索引範圍 的元素。

1、替換

（1）替換指定索引範圍的元素

puts "----------replace any element----------"
set mylist {1 2 3}
puts $mylist 
set mylist [lreplace $mylist 0 1 0]           ;# 替換指定索引範圍的元素
puts $mylist 


1 2 3
0 3

（2）替換指定索引位置的元素

puts "----------replace any element----------"
set mylist {1 2 3}
puts $mylist 
set mylist [lreplace $mylist 1 1 0]           ;# 替換指定索引範圍的元素
puts $mylist 


1 2 3
1 0 3

2、刪除

（1）刪除指定索引位置的元素

puts "----------delete any element----------"
set mylist {a b c}
puts $mylist
set idx [lsearch $mylist "b"]
set mylist [lreplace $mylist $idx $idx]        ;# 刪除指定索引位置的元素
puts $mylist

（2）刪除尾部元素

puts "----------delete end element----------"
set mylist {a b c}
puts $mylist
set mylist [lreplace $mylist end end]          ;# 刪除尾部元素
puts $mylist