newbiez: how to delete a line from text file?

[JudgeFred]

Hi,

I'm trying to write a script for eggdrop that received user input and search for that input (a line) in the text file then delete.

For example:
/msg botnick !delete remove-this-line-in-the-text-file

then the result should remove the line "remove-this-line-in-the-text-file" in the textfile.txt.


Also need to play back the textfile.txt back to user when user issued command: /msg botnick !list

thanks all,

GT

[dollar]

Read the text file, and copy all lines to an temporary file except the one you want to remove. Then just replace the old with the new.

[KrzychuG]

I found this code here at forum few month ago:

Code: Select all

# Usage: replaceLines <file> <first line> <last line> [replacement data (optional)]
proc replaceLines { args } {
   if {[llength $args] >= 3} then {
      foreach {file start end} $args break
      set cmd [list lreplace [split [read [set f [open $file r]]] \n] $start $end]
      close $f
      if {[llength $args] > 3} then {lappend cmd [lindex $args 3]}
      puts -nonewline [set f [open $file w]] [join [eval $cmd] \n]
      close $f
   } else {
      error "wrong # args: should be \"[lindex [info level 0] 0] file start end ?replacement?\""
   }
} ;# replaceLines

[awyeah]

Try this thread.
It has Basic file operation commands.

****
http://forum.egghelp.org/viewtopic.php?t=6885
****