egghelp/eggheads community

reading a specific line from a textfile

2002-06-05T16:33:00-04:00

Papillon - it's good, but you should check for eof after gets not before (although in this case it doesn't really matter). Also, the code is generally faster if you use read/split instead of a loop.

Code:

set fp [open $file r]set lines [split [read $fp n]close $fpset i [lsearch -glob $lines "$sometext*"]if {$i != -1} {  putserv "privmsg $nick :[lindex $lines $i]} else {  putserv "privmsg $nick :not found!"}

Statistics: Posted by stdragon — Wed Jun 05, 2002 4:33 pm

reading a specific line from a textfile

2002-06-05T14:34:00-04:00

Personally I wouldn't dump the text to server and continue reading the file like that. I'd put each matching line into a list, and then evaluate how long that list is before dumping each individual line to the server. This way, if like 1000 lines match, its possible, for example, to dump out only the first 5 lines (or maybe 5 random lines).

Statistics: Posted by Petersen — Wed Jun 05, 2002 2:34 pm

reading a specific line from a textfile

2002-06-05T13:27:00-04:00

Code:

set fs [open $file r]  while {![eof $fs]} {     gets $fs line     if {[string match "stringtofind*" $line]} {      putserv "PRIVMSG $nick :$line"     }  }

try that one...
_________________
Elen sila lúmenn' omentielvo

[ This Message was edited by: Papillon on 2002-06-05 11:29 ]

Statistics: Posted by Papillon — Wed Jun 05, 2002 1:27 pm

reading a specific line from a textfile

2002-06-05T08:18:00-04:00

Hello,

I'm very new at tcl scripting, sure I made some simple !op !topic scripts but now I want to try something more advanced.

I'd like to be able to use a command like
!search stringtofind and then have the script search through a textfile for a line beginning with stringtofind and then msg it to the person who gave the command.

How do I go about this ?

thx!
Quinten

Statistics: Posted by Guest — Wed Jun 05, 2002 8:18 am