egghelp/eggheads community

Removing lines from text file

2007-05-18T12:41:21-04:00

Code:

set fname "files/requests.txt"set fp [open $fname "r"]set data [read -nonewline $fp]set lines [split $data "\n"]close $fpwhile {[set i [lsearch -glob $lines $text]]>-1} {  set lines [lreplace $lines $i $i]}set fp [open $fname "w"]puts $fp [join $lines "\n"]close $fp

seems to be ok now? but does the code look ok? or could it be tidied up a bit?

Statistics: Posted by blip2 — Fri May 18, 2007 12:41 pm

Removing lines from text file

2007-05-18T12:33:49-04:00

You still trunk the file when opening it for writing (which is what you'd most likely want), but you still fail to write anything to it...

Statistics: Posted by nml375 — Fri May 18, 2007 12:33 pm

Removing lines from text file

2007-05-18T12:29:58-04:00

Code:

set fname "files/requests.txt"set fp [open $fname "r"]set data [read -nonewline $fp]set lines [split $data "\n"]=close $fpset fp [open $fname "w"]while {[set i [lsearch -glob $lines $text]]>-1} {  set lines [lreplace $lines $i $i]}close $fp

now got that but it still deletes all the lines. not just the one that is stated in $text

Statistics: Posted by blip2 — Fri May 18, 2007 12:29 pm

Re: Removing lines from text file

2007-05-18T10:55:20-04:00

Does anyone know what's going wrong?

You truncate the file when you open it (so there will be no data to read) and you never write anything back to the file.

http://tcl.tk/man/tcl8.3/TclCmd/open.htm#M8

Statistics: Posted by user — Fri May 18, 2007 10:55 am

Removing lines from text file

2007-05-18T09:59:03-04:00

I Have a list in a file called requests.txt which looks like this:
#Test
#Test2
#Test3
#Test4
#Test5
#Test6
(etc)
When i use a !trigger from a channel to remove a certain word from the file it deletes every line in the file instead of the match and here is what i have:

Code:

set fname "files/requests.txt"set fp [open $fname "w+"]set data [read -nonewline $fp]set lines [split $data "\n"]while {[set i [lsearch -glob $lines $text]]>-1} {set lines [lreplace $lines $i $i]}close $fp

Does anyone know what's going wrong?

Statistics: Posted by blip2 — Fri May 18, 2007 9:59 am