egghelp/eggheads community

Read from textfile every 4 secs

2008-06-16T09:30:53-04:00

We expect users to help themselves here, you could of searched the forum for 'utimer' and created the timer yourself.

It should look something like:
Code:
proc dumpfile {} {  set file [open text.txt r]  set data [read -nonewline $file]  close $file  foreach line [split $data \n] {    if {$line == ""} { continue }    putserv "PRIVMSG #CHANNEL_HERE :$line"  }  set file [open text.txt w]  puts $file ""  close $file  utimer 4 [list dumpfile]}utimer 4 [list dumpfile]

Code:

 if {[lsearch [utimers] "* dumpfile *"] == -1} { utimer 4 [list dumpfile] }

Otherwise it starts a new timer always you .rehash..

Statistics: Posted by tsukeh — Mon Jun 16, 2008 9:30 am

Read from textfile every 4 secs

2008-06-15T17:22:09-04:00

We expect users to help themselves here, you could of searched the forum for 'utimer' and created the timer yourself.

It should look something like:

Code:

proc dumpfile {} {  set file [open text.txt r]  set data [read -nonewline $file]  close $file  foreach line [split $data \n] {    if {$line == ""} { continue }    putserv "PRIVMSG #CHANNEL_HERE :$line"  }  set file [open text.txt w]  puts $file ""  close $file  utimer 4 [list dumpfile]}utimer 4 [list dumpfile]

Statistics: Posted by r0t3n — Sun Jun 15, 2008 5:22 pm

Read from textfile every 4 secs

2008-06-15T14:29:10-04:00

thanks, im unable to test it right now, and am also completely new to tcl scripts - but i dont think what you posted contains the 4sec timer i need?

Thanks

Statistics: Posted by onesikgypo — Sun Jun 15, 2008 2:29 pm

Read from textfile every 4 secs

2008-06-15T08:53:27-04:00

Example: (untested)

Code:

set file [open text.txt r]set data [read -nonewline $file]close $fileforeach line [split $data \n] {    if {$line == ""} { continue }    putserv "PRIVMSG #CHANNEL_HERE :$line"}set file [open text.txt w]puts $file ""close $file

Statistics: Posted by r0t3n — Sun Jun 15, 2008 8:53 am

Read from textfile every 4 secs

2008-06-14T22:01:46-04:00

Hi,

I was wondering if someone could write me a smallt tcl script that would do the following:

1) Every 4 secs "Text.txt" is read - and messaged into a channel
2) Once the text has been read, the contents are deleted
3) If there's no contents in the Text, then nothing happens.

Any help would be greatly appreciated.

Thanks.

Edit: This is for an eggdrop

Edit2:

i had a mini go at it, just from cutting other scripts - unsure though if its correct, or how to put it on a timer:

Code:

#readingset fname "yourfile.txt" set fp [open $fname "r"] set data [read -nonewline $fp] close $fp set lines [split $data "\n"] #messagingset wchan #Changlobal wchan {putserv $lines }#deletingset match *while {[set i [lsearch -glob $lines $match]]>-1} { set lines [lreplace $lines $i $i] }#writing fileset fp [open $fp "w"] puts $fp [join $lines "\n"] close $fp

Statistics: Posted by onesikgypo — Sat Jun 14, 2008 10:01 pm