egghelp/eggheads community

Searching from more than one File

2004-07-29T20:55:39-04:00

Thats, why I say user is an elite scripter, here. I mean one of the best. I'm just a newbie.

Statistics: Posted by awyeah — Thu Jul 29, 2004 8:55 pm

Searching from more than one File

2004-07-29T14:31:25-04:00

Thanx for your help guy's...

Statistics: Posted by Guest — Thu Jul 29, 2004 2:31 pm

Try this

2004-07-29T07:43:28-04:00

Code:

# list of files to search:set findfiles [list search.txt search2.txt search3.txt search4.txt]set maxresults 10;# set to 0 for no limitbind pub - @find find:pubproc find:pub {n u h c a} {global findfiles maxresultsset a *[string map {" " *} $a]*set out {}foreach file $::findfiles {if {[catch {open $file} f]} {putlog "find:pub - You're a moron: $f"} {while {[gets $f b]>-1} {if {[string match -nocase $a $b]} {lappend out $b}}close $f}}if {[set i [llength $out]]} {if {$maxresults&&$i>$maxresults} {putserv "PRIVMSG $n :Found $i match[expr {$i==1?"":"es"}] (here's the first $maxresults):"set out [lrange $out 0 [expr {$maxresults-1}]]} {putserv "PRIVMSG $n :Found $i match[expr {$i==1?"":"es"}]:"}foreach b $out {putserv "PRIVMSG $n :$b"}} {putserv "PRIVMSG $n :No matches."}}

awyeah: there's nothing wrong with opening several files at once (as long as you don't leave them open and forget about them), but in this particular case, reading the files one by makes the script more flexible.

Statistics: Posted by user — Thu Jul 29, 2004 7:43 am

Searching from more than one File

2004-07-28T21:43:15-04:00

Its like, first you open one file, read it then close it.
Then open another one, read it then close it.

You cannot open 2 at the same time and read, them
I guess. You always need to close the last opened file
to be able to open/read the new one. Otherwise you
will get errors.

Give, this a try maybe it will do your job:
(Otherwise, open, read and close one by one!)

Code:

catch {close $file}

Statistics: Posted by awyeah — Wed Jul 28, 2004 9:43 pm

Searching from more than one File

2004-07-28T15:08:08-04:00

hey a while back User posted some code here, and what he posted was something alone the lines of what i needed. But my question is can it be possible to have it search from more than one text file?

his code was:

Code:

bind pub - @find find:pub proc find:pub {n u h c a} {   set a *[string map {" " *} $a]*   putserv "PRIVMSG $n :Searching for $a"   set i 0   set f [open "search.txt"]   while {[gets $f b]>-1} {     if {[string match -nocase $a $b]} {       incr i       putserv "PRIVMSG $n :$b"     }   }   close $f   if {$i} {     putserv "PRIVMSG $n :Search complete found $i result[expr {$i==1?"":"s"}]"   } {     putserv "PRIVMSG $n :No matches."   } }

what i'm woundering is how can i have it look around in 4 or 5 more files?
i tried adding some more calls but they all give errors:

Code:

set m [open "search2.txt"] set p [open "search3.txt"] set x [open "search4.txt"] while {[gets $f,$m,$p,$x b]>-1}close $mclose $pclose $x

but all i get is errors.. can anyone help me out?

Statistics: Posted by Guest — Wed Jul 28, 2004 3:08 pm