read file randomly

[neoclust]

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

[raider2k]

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

Code: Select all

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

should do the trick, at least did it for me

[TCL_no_TK]

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

[neoclust]

i'm using this proc

Code: Select all

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