Posted to #eggtcl by vigilant at Wed Dec 05 19:21:36 GMT 2007view raw

  1. if {[lindex $t 0] == "delete" && [lindex $t 1] != ""} {
  2. set filename "deftopics.txt"
  3. set tmpname "deftemp.txt"
  4. set source [open $filename]
  5. set content [read $source]
  6. close $source
  7. set searchPhrase [lindex $t 1]
  8. set lines [split $content \n]
  9. set match [lsearch -exact $content $searchPhrase]
  10. if {$match != -1} {
  11. set content [lreplace $content $match $match]
  12. set destination [open $tmpname w]
  13. foreach line $lines {
  14. puts $destination [join $line \n]
  15. }
  16. close $destination
  17. file rename -force $tmpname $filename
  18. }
  19. }
  20. }

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 } }