egghelp/eggheads community

Match nicks from a file.

2004-04-27T01:46:47-04:00

set f [open "search.txt" r]
while {[gets $f spamnick]>-1} {
if {[string match -nocase $nick $spamnick]} {
# we have a match here
}
}
close $f
# search complete.. nothing found

how if i want in search.txt i put the host ex *!*@*.net

Statistics: Posted by hikaro — Tue Apr 27, 2004 1:46 am

Match nicks from a file.

2004-03-11T14:01:23-04:00

use string map

Code:

string map {\\ \\\\ \[ \\\[ \] \\\] \{ \\\{ \} \\\}.....} $arg

Statistics: Posted by Ofloo — Thu Mar 11, 2004 2:01 pm

Match nicks from a file.

2004-03-08T13:11:14-04:00

and if in the file is nicks with [ ] or { }?
for example (file):

[diesel ]
[^__^]
AtesT
MuSa
^^TeO^^
{ gurru }

How it would be the code?

Statistics: Posted by Careto — Mon Mar 08, 2004 1:11 pm

Match nicks from a file.

2003-11-08T05:40:29-04:00

Thanx ; I figured it out thanx to some scripts out there.

and Thank you strikelight for your code, its pure.

Statistics: Posted by Sir_Fz — Sat Nov 08, 2003 5:40 am

Your code with comments added...

2003-11-06T18:58:32-04:00

Code:

proc add:spamnick {hand idx arg} { global spnfile# opening with a+ will set the initial access position to the end of the file...set af [open "$spnfile" a+]# ...meaning the body of this while loop will never get executed# but if you'd add "seek $af 0" before the loop things would be different :)while {[gets $af spnick]>-1} {# now 'spnick' contains one line read from the file...# Are you sure 'string match' is what you want? Does your file contain masks?if {![string match -nocase $spnick $arg]} {# when you reach this point you have no idea about the rest of the file# ...just the last line read from it...then you proceed to overwrite the# existing data at the next line (if any) because you forget to move the# access position to the end...puts $af [split $arg]putlog "Added [split $arg] into $spnfile" # you sure did :Preturn 0 # oops..forgot to close the file :)}}close $afputlog "\002[split $arg]\002 already exists in SPNICKS-list" }

Statistics: Posted by user — Thu Nov 06, 2003 6:58 pm

Match nicks from a file.

2003-11-06T18:46:33-04:00

strange, when I do set af [open $spnfile a+] the bot always says that the nick already exists... but when I put 2 sets (a and r) on separate lines it works with the adding.

But I'm not able to remove using a command... anyone ?

Statistics: Posted by Sir_Fz — Thu Nov 06, 2003 6:46 pm

Match nicks from a file.

2003-11-06T17:34:42-04:00

can you give an example please ?

also

Code:

proc add:spamnick {hand idx arg} {global spnfileset af [open "$spnfile" a+]while {[gets $af spnick]>-1} {  if {![string match -nocase $spnick $arg]} {   puts $af [split $arg]   putlog "Added [split $arg] into $spnfile"   return 0  } }close $afputlog "\002[split $arg]\002 already exists in SPNICKS-list"}

this adds the nick several times in the script, and when I remove the nicks from the script and try to add them again using the dcc coomand, it tells me that the nick already exists.

Statistics: Posted by Sir_Fz — Thu Nov 06, 2003 5:34 pm

Match nicks from a file.

2003-11-06T17:15:23-04:00

Consult the open manual

As for your second question, just read and save all the stuff in an variable then by using the lsearch and lreplace just remove them from there and then save the contenst of the variable in to the file.

Statistics: Posted by caesar — Thu Nov 06, 2003 5:15 pm

Match nicks from a file.

2003-11-06T17:16:10-04:00

yeah, I realized that anyway caesar's way worked and looks better.
as for adding nicks into the file by a dcc command, I did open file r to read and open file a to write into it, isn't there a way to add both a and r into the same var like set f [open $file ar] (but this didn't work)

may I also ask for, how can I remove the nick from a file ? what's the command for removing the specified arg from the file if it exists ?

Statistics: Posted by Sir_Fz — Thu Nov 06, 2003 5:12 pm

Re: Match nicks from a file.

2003-11-06T17:05:54-04:00

I wrote a script that's supposed to ban users matching certain nicks in a file
the nicks are in this form in the file:
nick1
nick2
nick3
nick4
...
I used
Code:
set spamnicks [split [read -nonewline [open $spnfile]] "\n"]close [open $spnfile]foreach spamnick $spamnicks { if {[string match -nocase $spamnick $nick]} {## action }}
to see if the joined nick matches any of the nicks in the file, but it gave an error, my guess is that the spamnicks are not in a list like { "nick1" "nick2" "..." }, so can anyone give me a better method ?

The main problem I see with this, is that you are not closing the file you opened when you read in the data from file.... What you did is open another instance of the file just to be closed.

Code:

set spamnicks [split [string tolower [read [set inf [open $spnfile]]]] "\n"][close $inf]if {[set spamnick [lindex $spamnicks [lsearch $spamnicks [string tolower $nick]]]] != ""} {  ## action}

As for your writing to file.. you cannot read from a filehandle that has been opened in write mode...

Statistics: Posted by strikelight — Thu Nov 06, 2003 5:05 pm

Match nicks from a file.

2003-11-06T16:36:16-04:00

Your welcome.. something like that, yes. Give it a try.

Statistics: Posted by caesar — Thu Nov 06, 2003 4:36 pm

Match nicks from a file.

2003-11-06T16:32:41-04:00

thanx

what if I want to add nicks into the file using a dcc command.

would the code be like this ?

Code:

set af [open "$spnfile" a]while {[gets $af spnick]>-1} {  if {![string match -nocase $spnick $arg]} {# $arg will be added into file }}close $af

Sorry, but its my first time working with files :p

Statistics: Posted by Sir_Fz — Thu Nov 06, 2003 4:32 pm

Match nicks from a file.

2003-11-06T16:13:06-04:00

try something like:

Code:

set f [open "search.txt" r] while {[gets $f spamnick]>-1} { if {[string match -nocase $nick $spamnick]} { # we have a match here}}close $f# search complete.. nothing found

Statistics: Posted by caesar — Thu Nov 06, 2003 4:13 pm

Match nicks from a file.

2003-11-06T15:56:29-04:00

I wrote a script that's supposed to ban users matching certain nicks in a file
the nicks are in this form in the file:

nick1
nick2
nick3
nick4
...

I used

Code:

set spamnicks [split [read -nonewline [open $spnfile]] "\n"]close [open $spnfile]foreach spamnick $spamnicks { if {[string match -nocase $spamnick $nick]} {## action }}

to see if the joined nick matches any of the nicks in the file, but it gave an error, my guess is that the spamnicks are not in a list like { "nick1" "nick2" "..." }, so can anyone give me a better method ?

Statistics: Posted by Sir_Fz — Thu Nov 06, 2003 3:56 pm