egghelp/eggheads community

random line

2004-06-15T06:31:01-04:00

ok..thanks...sorry, dont mean to be rude when saying that i dont "bother", but earlier when i have searched, i have found like 1500 posts, and not found anything helpfull....
but thanks for answering =)

Statistics: Posted by zleppy — Tue Jun 15, 2004 6:31 am

random line

2004-06-14T22:36:30-04:00

sorry for taking it up again then..just so much work searching the old posts...

hmm don't wana be a pain but if u don't bother reading old posts why should we bohter answering ??

would 'set answer "mytxt"' work?

if up put it in the proc yes if not u need to use global to import it !!

Statistics: Posted by Ofloo — Mon Jun 14, 2004 10:36 pm

random line

2004-06-09T12:23:03-04:00

sorry for taking it up again then..just so much work searching the old posts...
i got it fixed now...now only thing is to set the a globa variable with "the answer", so i can check it laters...
would 'set answer "mytxt"' work?

Statistics: Posted by zleppy — Wed Jun 09, 2004 12:23 pm

random line

2004-06-09T00:10:39-04:00

and had been discussed before.

Statistics: Posted by caesar — Wed Jun 09, 2004 12:10 am

random line

2004-06-08T22:48:54-04:00

this is also covered in the faq section on this forum

http://forum.egghelp.org/viewtopic.php?t=6885

Statistics: Posted by greenbear — Tue Jun 08, 2004 10:48 pm

random line

2004-06-08T22:27:24-04:00

to get number of lines try this

Code:

proc length {file} {  set rf [open $file r]  set length [llength [split [read $rf] \n]]  close $rf  return $length}

like this you can use it in rand mutch more easyer ..

then do

Code:

proc getline {file} {  set rf [open $file r]  foreach x [split [read $rf] \n] {    if {[info exists i]} {      incr i    } else {      set i 0    }    if {[string equal $i [rand [length $file]]]} {      set getline [join [lrange $x 0 end]]      if {[string equal {} [lindex $x 0]]} {        getline $file        break      } else {        break        return $getline      }    }  }  close $rf}

not tested it tho could be an problem with the if {} string .. second one.. when u restart the proc ..

Statistics: Posted by Ofloo — Tue Jun 08, 2004 10:27 pm

random line

2004-06-08T19:46:07-04:00

Another way is to determine the file size, set a pointer to a random value between 0 and that file size, open the file, read the line at the random pointer and close the file.

Statistics: Posted by egghead — Tue Jun 08, 2004 7:46 pm

random line

2004-06-08T16:42:21-04:00

Should work:

Code:

proc show:random { file } {  set fname [open $file r]  set num 0  while {![eof $fname]} {    incr num    set line($num) [gets $fname]  }  putloglev o * "All lines in $file: $num"  if {$num > 0} then {    putloglev o * "Random line: $line([rand $num])  }} ;# show:random

Statistics: Posted by KrzychuG — Tue Jun 08, 2004 4:42 pm

random line

2004-06-08T16:09:28-04:00

Hey, i'm trying to make my own triviascript (only found buggy ones that would crash my bot), and i want the script to count the lines in a file, and then choose a random line...anyone know how i could do this?

-zleppy-

Statistics: Posted by zleppy — Tue Jun 08, 2004 4:09 pm