egghelp/eggheads community

Problem with deleting a whole line of a textfile

2006-08-10T14:01:35-04:00

I've said that countless times before, but darton just won't listen.

I am not good in making proper scripts. My scripts work but aren't proper.

But the script above is proper, isn't it?

Statistics: Posted by darton — Thu Aug 10, 2006 2:01 pm

Problem with deleting a whole line of a textfile

2006-08-10T12:36:09-04:00

I'd guess that'd be the only way of doing it, unless you'd like to mess with temp-files..
Oh well, there is random-access mode, but unless you're comfortable coding fixed-size datastructures with lazy-delete, you really don't wanna touch that one

Statistics: Posted by nml375 — Thu Aug 10, 2006 12:36 pm

Problem with deleting a whole line of a textfile

2006-08-10T12:20:56-04:00

I've said that countless times before, but darton just won't listen.

The (arguably) proper way of using files in eggdrop scripts is:

open the file only ONCE, on script's start-up; read the entire content into a list (or array or whatever), then close the file
manipulate that list as you wish in your event handlers
periodically SAVE the list into file

I've yet to see an eggdrop script having to handle files so large that the above won't work

Statistics: Posted by demond — Thu Aug 10, 2006 12:20 pm

Problem with deleting a whole line of a textfile

2006-08-10T09:14:31-04:00

Yep.
If the lines are consecutive, just alter the "last"-argument of lreplace, and it'll replace all elements between "first" and "last" (inclusive).

If the lines are spread out however, you'll have to use multiple lreplace's.
In this case I'd suggest you'd rewrite the script slightly in order to store the result from each lreplace in a variable inbetween the lreplace operations..
ie:

Code:

set dellist [list "lines" "to" "be" "removed"]...foreach op $dellist { if {[set le [lsearch -exact $list $op]] != -1} {  set list [lreplace $list $le $le] }}puts -nonewline $fd [join $list "\n"]

Oh, a word of advice, there is a chance that your file will be cleared if you try to remove a line that's not in the file in the example I wrote earlier (my bad). A simple solution would be to only open and close the file a second time if the lsearch is successful (just move the open and close-command inside the if-statement)

Code:

  if {[set le [lsearch -exact $list $op]] != -1} {   set fd [open $::adminfile w+]   puts -nonewline $fd [join [lreplace $list $le $le] \n]   close $fd  } else {   putquick "PRIVMSG $chan :Your moderator does not exist."  }

Statistics: Posted by nml375 — Thu Aug 10, 2006 9:14 am

Problem with deleting a whole line of a textfile

2006-08-10T05:52:41-04:00

By the way, is it possible to delete more than one line?

Statistics: Posted by darton — Thu Aug 10, 2006 5:52 am

Problem with deleting a whole line of a textfile

2006-08-09T18:17:35-04:00

It works perfectly now. Thank you.

Statistics: Posted by darton — Wed Aug 09, 2006 6:17 pm

Problem with deleting a whole line of a textfile

2006-08-09T17:58:09-04:00

Actually, when you open the file with r+, any writes to the file will append the new data, ie. the file is not truncated pre-write..
close it after you've read it, and open it with w+ when you wish to write to it..

Code:

bind pub - !delop delopproc delop {nick uhost hand chan arg} { global adminfile if {$arg != ""} {  set op [lindex [split $arg] 0]  set fd [open $::adminfile r+]  while {![eof $fd]} {   lappend list [gets $fd]           }  close $fd  set fd [open $::adminfile w+]  if {[set le [lsearch -exact $list $op]] != -1} {   puts -nonewline $fd [join [lreplace $list $le $le] \n]  } else {   putquick "PRIVMSG $chan :Your moderator does not exist."  }  close $fd }}

Statistics: Posted by nml375 — Wed Aug 09, 2006 5:58 pm

Problem with deleting a whole line of a textfile

2006-08-09T17:43:07-04:00

Exactly the same happens. Another suggestion?

Statistics: Posted by darton — Wed Aug 09, 2006 5:43 pm

Problem with deleting a whole line of a textfile

2006-08-09T17:29:06-04:00

$lines and $list are not the same...
lreplace can't alter $list, as it only sees it as variable content, rather than the variable itself. Basically, you could use it without variable aswell, ie:

Code:

set mylist [lreplace [list a b c d e] 3 4]

Try something like this:

Code:

bind pub - !delop delopproc delop {nick uhost hand chan arg} { global adminfile if {$arg != ""} {  set op [lindex [split $arg] 0]  set fd [open $::adminfile r+]  while {![eof $fd]} {   lappend list [gets $fd]           }           if {[set le [lsearch -exact $list $op]] != -1} {   puts -nonewline $fd [join [lreplace $list $le $le] \n]   close $fd  } else {   putquick "PRIVMSG $chan :Your moderator does not exist."  } }}

Statistics: Posted by nml375 — Wed Aug 09, 2006 5:29 pm

Problem with deleting a whole line of a textfile

2006-08-11T11:56:39-04:00

Hello!
In the meantime I have managed many things with eggdrop <-> textfiles. But with deleting a line out of a textfile I have a problem. You can see my script here:

Code:

bind pub - !delop delopproc delop {nick uhost hand chan arg} {global adminfile if {$arg != ""} {  set op [lindex [split $arg] 0]   set fd [open $::adminfile r+]      while {![eof $fd]} {         lappend list [gets $fd]               }               if {[set le [lsearch -exact $list $op]] != -1} {          #The following line should do the delete stuff, but doesn't          set list [lreplace $list $le $le]          puts -nonewline $fd [join $list \n]          close $fd        } else {          putquick "PRIVMSG $chan :Your moderator does not exist."        } } }

According to the "Basic File Operations" Thread of stdragon a line should be deleted by the following code: "set lines [lreplace $lines $line_to_delete $line_to_delete]". De_Kus said to me that the variable $list and $lines are equivalent. With the line "[set le [lsearch -exact $list $op]]" I am looking for the name $op in the textfile and I am saving the line into the variable $le. So $le and $line_to_delete should be the same, too. But it does not work. The content in the textfile is simply copied and pasted again.
Can anybody tell me where the mistake is?

Statistics: Posted by darton — Wed Aug 09, 2006 5:16 pm