egghelp/eggheads community

function similar grep for unix

2003-11-02T21:42:09-04:00

This should do the trick

Code:

#Usage: [find:text   ] proc find:text {nick filename arg} {   set count "0"   set rfile [open "$filename" "r"]   while {![eof $rfile]} {     gets $rfile line     if {[string match "*[string map {\x20 *} $arg]*" $line]} {       putserv "PRIVMSG $nick :$line"       set count [expr $count+1]     }   }   close $rfile   if {$count == 0} {     return 0   }  if {$count != 0} {     return 1  }  }

forgot a return breaked a loop :/ sorry hehe and forgot about the nick var
puts serv is just optional stuff so is the return its for usage in other procs depends how your using it .. just to give an idea on how you could do it .. you also can set max results by setting if $count < 10 for example .. and so on if $count > 10 then putserv to mutch results .. or something

Statistics: Posted by Ofloo — Sun Nov 02, 2003 9:42 pm

function similar grep for unix

2003-10-30T07:05:11-04:00

Alternativly, use the fileutil package that comes with TclLib

Statistics: Posted by ppslim — Thu Oct 30, 2003 7:05 am

function similar grep for unix

2003-10-30T03:20:56-04:00

Have a look at this post.

Statistics: Posted by caesar — Thu Oct 30, 2003 3:20 am

function similar grep for unix

2003-10-30T03:09:55-04:00

Code:

#Usage: [find:text  ]proc find:text {filename arg} {  set count "0"  set rfile [open "$filename" "r"]  while {![eof $rfile]} {    gets $rfile line    if {[string match "*[string map {\x20 *} $arg]*" $line]} {      putserv "PRIVMSG $nick :$line"      set count [expr $count+1]      return 1    }  }  close $rfile  if {$count == 0} {    return 0  }}

There's no variable called 'nick' in that proc. Also, returning from inside the loop will leave the file open (you must have meant 'break' ).

Statistics: Posted by user — Thu Oct 30, 2003 3:09 am

function similar grep for unix

2003-10-29T16:56:14-04:00

is it to create @find cause i got a script that does that ..

script below is like smal sample script you could use for that havn't tested it yet tho so let me know if it does ..

Code:

#Usage: [find:text  ]proc find:text {filename arg} {  set count "0"  set rfile [open "$filename" "r"]  while {![eof $rfile]} {    gets $rfile line    if {[string match "*[string map {\x20 *} $arg]*" $line]} {      putserv "PRIVMSG $nick :$line"      set count [expr $count+1]      return 1    }  }  close $rfile  if {$count == 0} {    return 0  }}

Statistics: Posted by Ofloo — Wed Oct 29, 2003 4:56 pm

function similar grep for unix

2003-10-28T08:04:48-04:00

there was a tread like this one just some days ago

Statistics: Posted by GodOfSuicide — Tue Oct 28, 2003 8:04 am

function similar grep for unix

2003-10-28T06:22:44-04:00

Hi, i'm looking for a function that find a string in a txt file.

If in my raiden.txt i have a string "hello", is in tcl a function that return 0 if it exists ?

Excuse my bad english.

Regards

Statistics: Posted by Guest — Tue Oct 28, 2003 6:22 am