egghelp/eggheads community

Weird problem with a txt-file

2006-07-18T07:48:21-04:00

Thank you. It works perfectly.

Statistics: Posted by darton — Tue Jul 18, 2006 7:48 am

Weird problem with a txt-file

2006-07-19T03:56:37-04:00

Hint:

Code:

      while {![eof $fd]} {         lappend list [gets $fd]      }

and

Code:

         set lines [split [read $fd] \n]

are equivalent (except for saving into 2 diffrent vars).
btw. $lines will be an empty string if *edit* there is only one line */edit*.

Advise: why not simply

Code:

      while {![eof $fd]} {         putquick "NOTICE $nick :[gets $fd]"      }

Statistics: Posted by De Kus — Mon Jul 17, 2006 6:38 pm

Weird problem with a txt-file

2006-07-17T07:27:39-04:00

Hello!
I made this script:

Code:

bind pub - !modlog atmlogproc atmlog {nick uhost hand chan arg} {  set fd [open $::atmfile r]      while {![eof $fd]} {         lappend list [gets $fd]         set lines [split [read $fd] \n]      }         close $fd                  foreach x $lines {         putquick "NOTICE $nick :$x"       }            return 1}

I can't see a mistake in it and an error message does not occur. Actually this script should read a textfile and give all lines with a notice to a user. So, where is the mistake?

Statistics: Posted by darton — Mon Jul 17, 2006 7:27 am