egghelp/eggheads community

Read a line from file script

2012-06-10T11:30:00-04:00

Hey willyw,

You got it right... both times..

Thanks a lot,

You're welcome

I apologize for earlier.

It's ok. np

Statistics: Posted by willyw — Sun Jun 10, 2012 11:30 am

Read a line from file script

2012-06-10T11:24:08-04:00

Hey willyw,

You got it right... both times..

Thanks a lot, I apologize for earlier.

Statistics: Posted by Football — Sun Jun 10, 2012 11:24 am

Read a line from file script

2012-06-10T10:46:06-04:00

Yeah you're right, I apologize, its my fault.. I was thinking about something and wrote something else...

The script is meant to read each X minutes the next line in the file. Each time it reads a line, it erases that line from the file..

Try this:

Code:

# June 10, 2012# http://forum.egghelp.org/viewtopic.php?t=19001######## Usage: To add a line, do:        !addline         in channel.#        To see all lines, do:  !sayfile# set how often file check runs - in minutesset sched 1# set path and filename of stats fileset statsfile "scripts/added/testing/Stats.txt"# set channels in which to announceset announcechans "#channel1 #channel2"bind pub - "!addline" addlinebind evnt - prerehash cleartimersbind pub - "!sayfile" sayfiletimer $sched readthefileproc readthefile { } {global sched statsfile announcechansif {![file exists $statsfile]} {timer $sched readthefilereturn 0         }# reference:  http://forum.egghelp.org/viewtopic.php?t=6885set fname $statsfileset fp [open $fname "r"]set data [read -nonewline $fp]close $fpset lines [split $data "\n"] if {[lindex $lines 0] == ""} {timer $sched readthefile           return 0        }foreach channel $announcechans {if {[botonchan $channel]} {putserv "privmsg $channel :[lindex $lines 0]"    }  }set fname $statsfileset fp [open $fname "r"]set data [read -nonewline $fp]close $fpset lines [split $data "\n"] # reference:  http://forum.egghelp.org/viewtopic.php?t=6885set line_to_delete 0set lines [lreplace $lines $line_to_delete $line_to_delete]set fp [open $fname "w"]puts $fp [join $lines "\n"]close $fp timer $sched readthefile}###proc cleartimers {prerehash} {foreach timerlisted [timers] {if {[lindex $timerlisted 1] == "readthefile" } {killtimer [lindex $timerlisted 2]              }   }}###proc addline {nick uhost handle chan text} {global statsfileif {$text == ""} {return 0         }# reference:   http://forum.egghelp.org/viewtopic.php?t=6885set line_to_add $textset fname $statsfileset fp [open $fname "a"]puts $fp $line_to_addclose $fp }###proc sayfile {nick uhost handle chan text} {global statsfileif {![file exists $statsfile]} {putserv "privmsg $chan :File does not exist"return 0         }set fname $statsfileset fp [open $fname "r"]set data [read -nonewline $fp]close $fpset lines [split $data "\n"]putserv "privmsg $chan :$lines"}

Statistics: Posted by willyw — Sun Jun 10, 2012 10:46 am

Read a line from file script

2012-06-10T03:30:36-04:00

Yeah you're right, I apologize, its my fault.. I was thinking about something and wrote something else... The script is meant to read each X minutes the next line in the file. Each time it reads a line, it erases that line from the file..

Statistics: Posted by Football — Sun Jun 10, 2012 3:30 am

Read a line from file script

2012-06-10T03:23:47-04:00

However it seems that the script reads the first line from Stats.txt and then erases the whole txt, which isn't good.
[...]

... it will write the first line in the file to channel(s) set in the .tcl file and erase that file.

?
That's how I read your request.

Statistics: Posted by willyw — Sun Jun 10, 2012 3:23 am

Read a line from file script

2012-06-10T02:38:23-04:00

Hey willyw,

Thanks for the code

However it seems that the script reads the first line from Stats.txt and then erases the whole txt, which isn't good.

* Also wondering if you can please add a public command for adding lines to Stats.txt please

Statistics: Posted by Football — Sun Jun 10, 2012 2:38 am

Re: Read a line from file script

2012-06-09T16:44:26-04:00

Experiment with this:

Code:

# June 9, 2012# http://forum.egghelp.org/viewtopic.php?t=19001## set how often file check runs - in minutesset sched 1# set path and filename of stats fileset statsfile "scripts/added/testing/Stats.txt"# set channels in which to announceset announcechans "#chan1 #chan2"##timer $sched readthefileproc readthefile { } {global sched statsfile announcechansif {![file exists $statsfile]} {timer $sched readthefilereturn 0         }# reference:  http://forum.egghelp.org/viewtopic.php?t=6885set fname $statsfileset fp [open $fname "r"]set data [read -nonewline $fp]close $fpset lines [split $data "\n"] if {[lindex $lines 0] == ""} {timer $sched readthefile           return 0        }foreach channel $announcechans {if {[botonchan $channel]} {putserv "privmsg $channel :[lindex $lines 0]"    }  }file delete $statsfiletimer $sched readthefile}bind evnt - prerehash cleartimersproc cleartimers {prerehash} {foreach timerlisted [timers] {if {[lindex $timerlisted 1] == "readthefile" } {killtimer [lindex $timerlisted 2]              }   }}

Tested briefly, and it seemed to do what you described. I hope this helps.

Statistics: Posted by willyw — Sat Jun 09, 2012 4:44 pm

Read a line from file script

2012-06-09T11:40:10-04:00

Hi all!

Was wondering if someone could help me out.

I need a script that will check every X minutes (determined in the script) if there are any lines written in a file called 'Stats.txt', if there is - it will write the first line in the file to channel(s) set in the .tcl file and erase that file.

If there are no lines in the file - it won't do anything, just keeping on checking the file and read/erase once there are lines in Stats.txt

Thanks

Statistics: Posted by Football — Sat Jun 09, 2012 11:40 am