Posted to #eggtcl by vigilant at Wed Dec 05 19:21:36 GMT 2007view raw
- if {[lindex $t 0] == "delete" && [lindex $t 1] != ""} {
- set filename "deftopics.txt"
- set tmpname "deftemp.txt"
- set source [open $filename]
- set content [read $source]
- close $source
- set searchPhrase [lindex $t 1]
- set lines [split $content \n]
- set match [lsearch -exact $content $searchPhrase]
- if {$match != -1} {
- set content [lreplace $content $match $match]
- set destination [open $tmpname w]
- foreach line $lines {
- puts $destination [join $line \n]
- }
- close $destination
- file rename -force $tmpname $filename
- }
- }
- }
Comments
Posted by noone at Wed Dec 05 19:37:42 GMT 2007 [text] [code]
proc RemoveLine {searchPhrase} { set filename "/root/test.txt" set tmpname "/root/tmp.txt" set source [open $filename] set content [read $source] close $source set lines [split $content \n] set match [lsearch -exact $lines $searchPhrase] if {$match != -1} { set lines [lreplace $lines $match $match] set destination [open $tmpname w] puts -nonewline $destination [join $lines \n] close $destination file rename -force $tmpname $filename } }