TCL 从列表中删除一个元素

Question

如何从 TCL 列表中删除一个元素说：

1. 其索引 = 4
2. 其值 =“aa”

我已经用 Google 搜索过，但尚未找到任何内置函数。

Answer 1

set mylist {a b c}
puts $mylist
a b c

按索引删除

set mylist [lreplace $mylist 2 2]
puts $mylist 
a b

按值删除

set idx [lsearch $mylist "b"]
set mylist [lreplace $mylist $idx $idx]
puts $mylist
a

Answer 2

删除元素的另一种方法是将其过滤掉。此 Tcl 8.5 技术与其他地方提到的 lsearch&lreplace 方法不同，因为它从列表中删除给定元素的全部。

set stripped [lsearch -inline -all -not -exact $inputList $elemToRemove]

它不做的是搜索嵌套列表。这是 Tcl 没有花精力太深入地理解数据结构的结果。 （不过，您可以通过 -index 选项告诉它通过比较子列表的特定元素来进行搜索。）

Answer 3

假设您想要替换元素“b”：

% set L {a b c d}
a b c d

您可以将第一个元素 1 和最后一个元素 1 替换为空：

% lreplace $L 1 1
a c d

Answer 4

regsub 也可能适合从列表中删除值。

set mylist {a b c}
puts $mylist
  a b c

regsub b $mylist "" mylist

puts $mylist
  a  c
llength $mylist
  2

Answer 5

刚刚完成了别人所做的事情

proc _lremove {listName val {byval false}} {
    upvar $listName list

    if {$byval} {
        set list [lsearch -all -inline -not $list $val]
    } else {
        set list [lreplace $list $val $val]
    }

    return $list
}

然后打电话

Inline edit, list lappend
    set output [list 1 2 3 20]
    _lremove output 0
    echo $output
    >> 2 3 20

Set output like lreplace/lsearch
    set output [list 1 2 3 20]
    echo [_lremove output 0]
    >> 2 3 20

Remove by value
    set output [list 1 2 3 20]
    echo [_lremove output 3 true]
    >> 1 2 20

Remove by value with wildcar
    set output [list 1 2 3 20]
    echo [_lremove output "2*" true]
    >> 1 3

Answer 6

你也可以这样尝试：

set i 0
set myl [list a b c d e f]

foreach el $myl {
   if {$el in {a b e f}} {
      set myl [lreplace $myl $i $i]
   } else {
      incr i
   }
}
set myl

Answer 7

有两种简单的方法。

# index
set mylist "a c b"
set mylist [lreplace $mylist 2 2]
puts $mylist 
a b
    
# value
set idx [lsearch $mylist "b"]
set mylist [lreplace $mylist $idx $idx]
puts $mylist
a