egghelp/eggheads community

Reading from a file.

2003-09-15T19:09:15-04:00

thanks m8 Works a treat

Statistics: Posted by ^DooM^ — Mon Sep 15, 2003 7:09 pm

Reading from a file.

2003-09-15T18:37:54-04:00

ok here is the code i botched together.

Code:

proc qot_all {nick uhost hand chan rest} {global qot    if {![file exists $qot(file)]} {putchan $chan "Error: No Servers found or database does not exist"return    }    set qot_fd [open $qot(file) r]    for {set qot_cnt 0} { ![eof $qot_fd] } { incr qot_cnt 1 } {gets $qot_fd qot_list($qot_cnt)    }    close $qot_fd    set qot_cnt [expr $qot_cnt - 2]    unset qot_list([expr $qot_cnt + 1])    if {![info exists qot_list([expr $rest - 1])]} {putchan $chan "Error: that server does not exist"return    } else {    foreach line [split $qot_list \n] {     putchan $chan "[expr $qot_cnt + 1] Servers in total"    putchan "PRIVMSG $chan :$line"     return    }  }}

Thanks strikelight

Ok, so instead of a list, you have created an array...

I believe you'll want to change:

Code:

    } else {    foreach line [split $qot_list \n] {       putchan $chan "[expr $qot_cnt + 1] Servers in total"      putchan "PRIVMSG $chan :$line"       return    }

To the following:

Code:

   } else {    putchan $chan "[expr $qot_cnt + 1] Servers in total"    foreach id [array names qot_list] {       putchan $chan "$qot_list($id)"     }   }

Statistics: Posted by strikelight — Mon Sep 15, 2003 6:37 pm

Reading from a file.

2003-09-15T12:32:37-04:00

ok here is the code i botched together.

Code:

proc qot_all {nick uhost hand chan rest} {global qot    if {![file exists $qot(file)]} {putchan $chan "Error: No Servers found or database does not exist"return    }    set qot_fd [open $qot(file) r]    for {set qot_cnt 0} { ![eof $qot_fd] } { incr qot_cnt 1 } {gets $qot_fd qot_list($qot_cnt)    }    close $qot_fd    set qot_cnt [expr $qot_cnt - 2]    unset qot_list([expr $qot_cnt + 1])    if {![info exists qot_list([expr $rest - 1])]} {putchan $chan "Error: that server does not exist"return    } else {    foreach line [split $qot_list \n] {     putchan $chan "[expr $qot_cnt + 1] Servers in total"    putchan "PRIVMSG $chan :$line"     return    }  }}

Thanks strikelight

Statistics: Posted by ^DooM^ — Mon Sep 15, 2003 12:32 pm

Reading from a file.

2003-09-14T20:37:03-04:00

Thanks for your prompt reply m8 much appreciated

im sure im doing it right but i get this error now.
[23:17] Tcl error [qot_all]: can't read "qot_list": variable is array
any ideas?

well, the error message means that TCL is sure you aren't doing it right...

I'm not sure how you are creating the variable qot_list, but somehow you are creating it as an array... You'll need to show that.

Statistics: Posted by strikelight — Sun Sep 14, 2003 8:37 pm

Reading from a file.

2003-09-14T19:06:06-04:00

Thanks for your prompt reply m8 much appreciated

im sure im doing it right but i get this error now.

[23:17] Tcl error [qot_all]: can't read "qot_list": variable is array

any ideas?

Statistics: Posted by ^DooM^ — Sun Sep 14, 2003 7:06 pm

Re: Reading from a file.

2003-09-14T17:58:08-04:00

Hello again im having trouble reading from a flat file on my shell.

Well i can read it but i cant display its contents in channel.

It's based on a quote script by Koloth, v1.0. i altered it so people could add quake servers to it for people to play on. and remove them if they are down. it currently displays how many servers are added and it will pull a random server (Was a random quote) from the list with !server (which used to be !quote) so everything works fine. now instead of having a random server displayed on channel id like it to reel off the entire list. can someone give me an example of how display a document on channel. I have already opened the file, read the contents and closed it again.

Thanks in advance.

^DooM^

if you have read the contents into a variable, then it is a simple matter of regular variable manipulation...

For example..

Code:

foreach line [split $your_data_variable \n] {  puthelp "PRIVMSG $chan :$line"}(or if you've already created a _list_ from the file):foreach element $your_data_list {  puthelp "PRIVMSG $chan :$element"}

Statistics: Posted by strikelight — Sun Sep 14, 2003 5:58 pm

Reading from a file.

2003-09-14T17:41:07-04:00

Hello again im having trouble reading from a flat file on my shell.

Well i can read it but i cant display its contents in channel.

It's based on a quote script by Koloth, v1.0. i altered it so people could add quake servers to it for people to play on. and remove them if they are down. it currently displays how many servers are added and it will pull a random server (Was a random quote) from the list with !server (which used to be !quote) so everything works fine. now instead of having a random server displayed on channel id like it to reel off the entire list. can someone give me an example of how display a document on channel. I have already opened the file, read the contents and closed it again.

Thanks in advance.

^DooM^

Statistics: Posted by ^DooM^ — Sun Sep 14, 2003 5:41 pm