tcl tablelist alle Zeilen mit einem bestimmten Eintrag löschen

Question

Mit einer Tabellenliste Ich möchte alle Zeilen löschen, die eine Zeichenfolge in der ersten Spalte enthalten.

set Joints  [.dsm.nb.f11.jointData_f11 getcolumns cJoint ] 
set killrow 0 
foreach Joint $Joints {         
     if { $Joint eq "" } {           
       .dsm.nb.f11.jointData_f11 delete $killrow $killrow 
     } 
       incr killrow   
} 

Das Problem ist, dass die Zeilenindizes der Tabelle ändert, während Zeilen gelöscht werden, so dass nach dem ersten Löschbefehl alles upp messd wird. Was ist der beste Weg, um mit diesem Problem umzugehen? Gibt es eine eingebaute Funktion, die ich verwenden könnte?

Answer 1

Der einfachste Weg, diese Arbeit zu machen, ist, rückwärts durch die Liste zu gehen. lreverse hilft viel.

set Joints [.dsm.nb.f11.jointData_f11 getcolumns cJoint] 
set killrow 0 
set rowsToKill {} 
foreach Joint $Joints { 
    if {$Joint eq ""} { 
     lappend rowsToKill $killrow 
    } 
    incr killrow 
} 
foreach killrow [lreverse $rowsToKill] { 
    .dsm.nb.f11.jointData_f11 delete $killrow $killrow 
} 

Ja, Sie wiederholen die Liste ein paar Mal. Es ist noch einfacher, es auf diese Weise zu machen, als es zu versuchen.