egghelp/eggheads community

make a egg read a file in the channel [RESOLV]

2005-01-06T09:30:59-04:00

user, my eggdrop is givem that error of "no channel call file.dat " and now i cam understeend why.. tks [[]]

Statistics: Posted by MrAnderson — Thu Jan 06, 2005 9:30 am

make a egg read a file in the channel [RESOLV]

2005-01-03T19:04:58-04:00

But I have only one last question, went we put close $f $f is [open (..) don't is better to put the name of the file?
like close partidas.txt or the final resut will be the same?

close expects the name of a file channel, not the name of a file. Check the manual and read up on the syntax...you'll see why the contents of 'f' is not '[open file.txt]', but what open returned (because of command substitution)

Statistics: Posted by user — Mon Jan 03, 2005 7:04 pm

make a egg read a file in the channel [RESOLV]

2005-01-03T18:03:01-04:00

what you can do:

Code:

set ficheiro "partidas.txt"bind pub - !partidas pub:partidas proc pub:partidas {nick uhost handle chan arg} { global ficheiroif {![file exists $ficheiro] } { putserv "PRIVMSG $nick :Sem novas partidas" } else { set f [open $ficheiro "r"] putserv "PRIVMSG $nick :Ultimas partidas reportadas:" while {[gets $f line]>-1} { putserv "PRIVMSG $nick :$line" } putserv "PRIVMSG $nick :Para as eleminar faça !reset" close $f } }

Statistics: Posted by the_crow — Mon Jan 03, 2005 6:03 pm

make a egg read a file in the channel [RESOLV]

2005-01-03T17:46:10-04:00

weee... tks ppl for helping me. now it work's at 100%

final code:

Code:

bind pub - !partidas pub:partidasproc pub:partidas {nick uhost handle chan arg} {if {![file exists partidas.txt] } { putserv "PRIVMSG $nick :Sem novas partidas"} else {set f [open partidas.txt] putserv "PRIVMSG $nick :Ultimas partidas reportadas:"while {[gets $f line]>-1} {putserv "PRIVMSG $nick :$line"}putserv "PRIVMSG $nick :Para as eleminar faça !reset"close $f}}

But I have only one last question, went we put close $f $f is [open (..) don't is better to put the name of the file?
like close partidas.txt or the final resut will be the same?

and one more time.. tks [[]]

Statistics: Posted by MrAnderson — Mon Jan 03, 2005 5:46 pm

make a egg read a file in the channel [RESOLV]

2005-01-03T15:34:42-04:00

you didn't open the file

Statistics: Posted by demond — Mon Jan 03, 2005 3:34 pm

make a egg read a file in the channel [RESOLV]

2005-01-03T15:35:28-04:00

1: you continue even if the file doesn't exist.
2: you never open the file
3: the start/end messages are inside the loop (which I doubt is what you want)

Statistics: Posted by user — Mon Jan 03, 2005 3:34 pm

make a egg read a file in the channel [RESOLV]

2005-01-03T15:29:44-04:00

try and try and notting =\
This is the code rewrithem:

Code:

bind pub - !partidas pub:partidasproc pub:partidas {nick uhost handle chan arg} {set fname "partidas.txt"if {![file exists $fname] } { putserv "PRIVMSG $nick :Sem novas partidas"}foreach line [split [read -nonewline $fname] \n] { putserv "PRIVMSG $nick :Ultimas partidas reportadas:"putserv "PRIVMSG $nick :$line"putserv "PRIVMSG $nick :Para as eleminar faça !reset"}close $fname}

And this is the error that happens:
[19:25] Tcl error [pub:partidas]: can not find channel named "partidas.txt"

tks for the help

Statistics: Posted by MrAnderson — Mon Jan 03, 2005 3:29 pm

make a egg read a file in the channel [RESOLV]

2005-01-03T15:10:21-04:00

try:

Code:

set f [open file.txt]while {![eof $f]} {lappend lines [gets $f]}close $f

Using eof like that will give you a empty element at the end of the list if the last line ends with a newline.
Try

Code:

set f [open file.txt]while {[gets $f line]>-1} {#output $line}close $f

Code:

set f [open file.txt]foreach line [split [read -nonewline $f] \n] {#output $line}close $f

Statistics: Posted by user — Mon Jan 03, 2005 3:10 pm

make a egg read a file in the channel [RESOLV]

2005-01-03T15:10:04-04:00

sorry.. but can you explain better?
Is to resume for me, a try that, but i think that im doing that not in the right way.

Statistics: Posted by MrAnderson — Mon Jan 03, 2005 3:10 pm

make a egg read a file in the channel [RESOLV]

2005-01-03T14:56:03-04:00

try:

Code:

set f [open file.txt]while {![eof $f]} {lappend lines [gets $f]}close $f

Statistics: Posted by demond — Mon Jan 03, 2005 2:56 pm

make a egg read a file in the channel [RESOLV]

2005-01-03T14:44:01-04:00

no, there is a } before the rest.
i am trying to read a file that exist, and work's, but only read the fist line, and not all =\
And i don't know do it =\

Statistics: Posted by MrAnderson — Mon Jan 03, 2005 2:44 pm

make a egg read a file in the channel [RESOLV]

2005-01-03T14:13:46-04:00

you are trying to read a file that doesn't exist

Statistics: Posted by demond — Mon Jan 03, 2005 2:13 pm

make a egg read a file in the channel [RESOLV]

2005-01-03T18:00:01-04:00

Hello. i was tying to put a egg reading a file, and put the file in the channel or private windows, but the egg only read's the fisrt line, i try lot's of way's, follow wat is in the egg faq called " Basic File Operations" but i can't doint.

This is the code:

Code:

bind msg - !partidas msg:partidasproc msg:partidas {nick uhost handle arg} {if {![file exists partidas.txt] } {putserv "PRIVMSG $nick : ERROR: File dont exist"}set jogos [open partidas.txt r]set ptmsg [read -nonewline $jogos]#set lines [split $jogos "\n"] #set numlines [llength $lines]putserv "PRIVMSG $nick :Last games:"putserv "PRIVMSG $nick :$ptmsg"putserv "PRIVMSG $nick :To delete make  !reset"close $jogos}

Can anywane help me? I want make the egg read all the file and not only the fisrt line.
tks

P.S. Sorry for my bad english.

Statistics: Posted by MrAnderson — Mon Jan 03, 2005 1:17 pm