egghelp/eggheads community

read file randomly

2010-04-11T16:15:21-04:00

i'm using this proc

Code:

proc readfile {min hour day month year} {    global filenews    foreach chan [channels] {    if {[channel get $chan randnews]} {    set file [open $filenews r]    set data [read $file]    close $file    set lines [split $data \n]    set randline [lindex $lines [rand [llength $lines]]]     putserv "PRIVMSG $chan :$randline"     }    } }

Thanks

Statistics: Posted by neoclust — Sun Apr 11, 2010 4:15 pm

read file randomly

2010-04-11T12:42:24-04:00

try Search feature. or just look at the other forums

The post your after is here http://forum.egghelp.org/viewtopic.php?t=6885 under TCL Help

Statistics: Posted by TCL_no_TK — Sun Apr 11, 2010 12:42 pm

read file randomly

2010-04-11T12:41:55-04:00

after you read all of a files content into a list:

Code:

set output [lindex $filecontent [rand [llength $filecontent]]]putserv "PRIVMSG $channel :$output"

should do the trick, at least did it for me

Statistics: Posted by raider2k — Sun Apr 11, 2010 12:41 pm

read file randomly

2010-04-11T10:52:32-04:00

I have a file called bd.dat containing "x" lines, how to read a one line of randomly thanks

Statistics: Posted by neoclust — Sun Apr 11, 2010 10:52 am