egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-08-02T19:41:09-04:00 https://forum.eggheads.org/app.php/feed/topic/8040 2004-08-02T19:41:09-04:00 2004-08-02T19:41:09-04:00 https://forum.eggheads.org/viewtopic.php?p=39383#p39383 <![CDATA[problem with reading from txt file]]>

Code: 

set mailfile "/home/user/mailfile.txt"set readfrom 11bind dcc -|- readmail dcc:readmailproc dcc:readmail {hand idx arg} { global mailfile readfrom set counter 0 set file [open $mailfile r]  while {![eof $file]} {    incr counter 1    set line [gets $file]    if {$counter >= $readfrom} {      putidx $idx "$line"    }   } close $file}

Statistics: Posted by greenbear — Mon Aug 02, 2004 7:41 pm

]]> 2004-08-02T17:02:39-04:00 2004-08-02T17:02:39-04:00 https://forum.eggheads.org/viewtopic.php?p=39377#p39377 <![CDATA[problem with reading from txt file]]>
i have the following problem:
i want to open a mail file, and read out from line 11 till the end and put line after line in a channel...

i tried hours but this [censored] does not work :(

here is the proc:

Code: 

proc readmail {as df gh hj rt} {   global basicfile lastmail lastmailid  mailname tmpfile tmpmail  set foo [open $tmpmail r] set line [read $foo] foreach line [split $line "\n"]  {set mailid2  [lindex $line [expr [llength $line] -10]]set mailname1 [lindex $line [expr [llength $line] -1]]if { $mailid2  == $rt } {puthelp "privmsg #bla :$mailid2 $mailname1"## maildatei oeffnen ##set mailfile2 "/Maildir/cur/$mailname1:2," set foo [open $mailfile2 r] set line [read -nonewline $foo] set lines [split $line "\n"] putserv "privmsg #bla :$lines"}}catch {close $foo} catch {close $foo} }

sorry for my bad english :(

Statistics: Posted by misterys — Mon Aug 02, 2004 5:02 pm

]]>