egghelp/eggheads community

Deleting a line from a text file.

2006-10-03T22:23:21-04:00

I gave you help, you haven't utilized it. Whether I'm good or not is irrelevent. If you're not looking for a full script, why are you posting in the request forum?

Statistics: Posted by rosc2112 — Tue Oct 03, 2006 10:23 pm

...

2006-10-03T20:43:32-04:00

and if I recall correctly, I never asked you to completely write me a script, I had something, but it messed up, so I asked for help.

Statistics: Posted by Justdabomb2 — Tue Oct 03, 2006 8:43 pm

... wtf

2006-10-03T20:28:19-04:00

Yeah, I have no clue what I am doing *sarcasm end*... I am still learning for one. And you aren't too good yourself... There are a few things I don't know okay... big deal.

Statistics: Posted by Justdabomb2 — Tue Oct 03, 2006 8:28 pm

Deleting a line from a text file.

2006-10-03T17:45:56-04:00

Actually, you should not be posting scripts to the egghelp tcl archive until you have a clue what you're doing. Shame that files can't come with a big fat WARNING about absolutely clueless people and the potential for deleting your entire hard drive.

And no, I won't write the script for you, when you'll just post it as if you had written it.

Statistics: Posted by rosc2112 — Tue Oct 03, 2006 5:45 pm

Deleting a line from a text file.

2006-10-03T17:43:16-04:00

read my last reply about glob.

Statistics: Posted by rosc2112 — Tue Oct 03, 2006 5:43 pm

hmm

2006-10-03T15:44:46-04:00

I tested the script you gave ^^^^

and this is what ir said

[15:43] <~Justdabomb2> !delmpht justdabomb2
[15:43] That user was not found.
[15:43] <~Justdabomb2> !delmpht juancarlos
[15:43] That's not your entry so I won't delete it

So the nick thing works, but it still did not delete the line. It didn't delete anything. Any suggestions?

Statistics: Posted by Justdabomb2 — Tue Oct 03, 2006 3:44 pm

Deleting a line from a text file.

2006-10-02T23:58:28-04:00

Actually, I think you'd have to use lsearch -glob unless you use lindex and split to get the exact name for $gamer from the file first. I answered a post (now in the script request forum) that might be helpful, to show how to read/write/parse text files:
http://forum.egghelp.org/viewtopic.php?p=66839#66839

Statistics: Posted by rosc2112 — Mon Oct 02, 2006 11:58 pm

Deleting a line from a text file.

2006-10-02T23:54:04-04:00

Code:

proc deleteuser {nick uhost hand chan arg} {  global mphtfile  if {$arg != ""} {         set arg [string tolower $arg]         set gamer [lindex [split $arg] 0]         set nick [string tolower $nick]         if {$nick == $gamer} {              set fd [open $mphtfile r]              while {![eof $fd]} {                     lappend list [gets $fd]              }              close $fd              set le [lsearch -exact $list $gamer]              if {$le != -1} {                       lreplace $list $le $le                       set fd [open $mphtfile w]                       foreach line $list {                             if {$line != ""} {                                   puts $fd [join $line]                             }                       }                       close $fd              } else {                         putquick "PRIVMSG $chan :That user was not found."              }          } else {                        putquick "PRIVMSG $nick :That's not your entry so I won't delete it"          }  }}

Something like that.

Statistics: Posted by rosc2112 — Mon Oct 02, 2006 11:54 pm

Deleting a line from a text file.

2006-10-02T21:20:46-04:00

Could someone help create me a proc that will delete the line

"[JuanCarlos] <3780-2292-1521>"

from the lines below.

[Chaoszer14] <3350-8023-6356>
[Jjoiu] <0687-8131-8871>
[JuanCarlos] <3780-2292-5121>
[Lostfan2420] <4639-3128-6539>
[Shade] <5412-2685-7596>

------------

I am having quite a bit of trouble figuring out how to a remove a specified line from a text file. And if you can, could you make so that the person could only remove the line "[JuanCarlos] <3780-2292-1521>" if there name was juancarlos.

When I tried to make a proc to do this myself, it ended up deleting my whole txt file. The code I used is below. Maybe I did something wrong in my code, or maybe I just need a new code in general. (everytime it would say user not found when I typed !delmpht juancarlos, and then I checked the user to file to clarify, and the whole file was erased.)

Code:

proc deleteuser {nick uhost hand chan arg} {   global mphtfile   if {$arg != ""} {     set gamer [lindex [split $arg] 0]     set fd [open $::mphtfile r+]     while {![eof $fd]} {       lappend list [gets $fd]     }     close $fd     set fd [open $::mphtfile w+]     if {[set le [lsearch -exact $list $gamer]] != -1} {       puts -nonewline $fd [join [lreplace $list $le $le] \n]       } else {       putquick "PRIVMSG $chan :That user was not found."     }     close $fd   } }

Thank you!

Statistics: Posted by Justdabomb2 — Mon Oct 02, 2006 9:20 pm