egghelp/eggheads community

Reading from a file

2003-12-10T08:23:29-04:00

It works!
Thanks man

Statistics: Posted by Jag — Wed Dec 10, 2003 8:23 am

Reading from a file

2003-12-10T06:40:59-04:00

I'm not quite sure - as I'm quite new - but I would try it as:

Code:

proc slowmsg {file {pos 0}} {  set f [open $file]  seek $f $pos  if {[gets $f line]>-1} {    putserv "privmsg #Jag $line"     timer 3 [list slowmsg $file [tell $f]]    } else {     slowmsg $file  }  close $f}

Probally closing the file should be called before restarting the proc.

u could also start the timer directly - skipping one read. like:

Code:

} else {     timer 3 [list slowmsg $file]}

(not sure about the list)

Statistics: Posted by Guest — Wed Dec 10, 2003 6:40 am

Reading from a file

2003-12-10T06:09:09-04:00

Thanks, it helps.
But, what about the:

But, how can i do that when it get to the end of the file, it will go back to the start (go again from the first line to the end of the file) ?

?
10x

Statistics: Posted by Jag — Wed Dec 10, 2003 6:09 am

Reading from a file

2003-12-09T15:31:07-04:00

Code:

set mytimer [timer 3 bla...]

and

Code:

catch { killtimer $mytimer }

in front of your proc

Statistics: Posted by arcane — Tue Dec 09, 2003 3:31 pm

Reading from a file

2003-12-09T14:35:18-04:00

Thanks, i tried this:

Code:

proc slowmsg {file {pos 0}} {   set f [open $file]   seek $f $pos   if {[gets $f line]>-1} {     putserv "privmsg #Jag $line"    timer 3 [list slowmsg $file [tell $f]]     } {   }   close $f }slowmsg "news.txt"

And it's works fine.
But, how can i do that when it get to the end of the file, it will go back to the start (go again from the first line to the end of the file) ?
And when i do a lot of '.rehash' it starts a lot of timers because the:

slowmsg "news.txt"

How can i stop that?

Thanks again for the help user

Statistics: Posted by Jag — Tue Dec 09, 2003 2:35 pm

Reading from a file

2003-11-11T18:03:39-04:00

Thanks a lot, but.... how can i do that when it get to the end of the file, it will go back to the start?

Start a new timer with 0 as the last parameter or call the proc from within itself (make sure your file is not empty if you do this ) instead of doing that putlog.

EDIT: can you build it in "bind time" please?
10x

I _can_ but you don't provide enough info and I'm not always bored. Do you need it to work with multiple users/files? How are you planning to use this? Why did you change your mind about using 'timer'? Here's something to get you started:

Code:

bind time - * time_demoproc time_demo {args} {if {![expr {([clock seconds]/60)%3}]} {# do stuff}}

Statistics: Posted by user — Tue Nov 11, 2003 6:03 pm

Reading from a file

2003-11-11T10:42:18-04:00

Thanks a lot, but.... how can i do that when it get to the end of the file, it will go back to the start?

EDIT: can you build it in "bind time" please?
10x

Statistics: Posted by Jag — Tue Nov 11, 2003 10:42 am

Reading from a file

2003-11-10T17:52:50-04:00

Where are you stuck and what happens when you reach the end of the file?

EDIT: I was bored...
Usage is pretty much explained by the variable names except for 'pos' which is the byte position when we last read from the file (not used when you start a new "slowmsg")

This proc doesn't care about nick changes, quitting etc., so if you need that, you've got some coding to do It doesn't care if you call it multiple times with the same nick/file as arguments either ...which might become annoying if you .rehash alot and have a call to this proc that is executed every time

Code:

proc slowmsg {nick file {pos 0}} {set f [open $file]seek $f $posif {[gets $f line]>-1} {putserv "PRIVMSG $nick :$line"timer 3 [list slowmsg $nick $file [tell $f]]} {putserv "PRIVMSG $nick :What am I supposed to do now? (EOF)"}close $f}

Statistics: Posted by user — Mon Nov 10, 2003 5:52 pm

Reading from a file

2003-11-10T12:13:25-04:00

i need a script that read every 3 mins line from a file and send it to me in a privmsg.
something like this:
timer 3 "privmsg jag :line 1"
and after 3 mins it will do:
timer 3 "privmsg jag :line 2"
and after 3 mins it will do:
timer 3 "privmsg jag :line 3"
and after 3 mins it will do:
timer 3 "privmsg jag :line 4"
somebody can help me with that please?

Statistics: Posted by Jag — Mon Nov 10, 2003 12:13 pm