egghelp/eggheads community

Write to a file

2003-04-27T05:36:18-04:00

You can open the file for reading and load it all into memory then use llength to get whatever you need.

Code:

if {![file exists log_file]} {close [open log_file w]} set io [open log_file r]set list ""while {![eof $io]} {  gets $io line  if {[string trim $line] == ""} {continue}  lappend list $line}close $iolappend list "<$nick@$channel> $arg"set st [expr [llength $list]-50]; #assuming you want only the last 50.set list [lrange $list $st end]set io [open log_file w]foreach line $list {  puts $io $line}close $io

Statistics: Posted by MC_8 — Sun Apr 27, 2003 5:36 am

Write to a file

2003-04-27T02:35:06-04:00

that works exelent. but how du i make it so that it cuts of the first line if there is more then a sertan number of lines allready, in the log

Statistics: Posted by Guest — Sun Apr 27, 2003 2:35 am

Write to a file

2003-04-26T18:11:32-04:00

Code:

bind pubm - * proc_nameproc proc_name {nick uhost handle channel arg} {  if {![file exists log_file]} {close [open log_file w]}  set io [open log_file a]  puts $io "<$nick@$channel> $arg"  close $io}

Statistics: Posted by MC_8 — Sat Apr 26, 2003 6:11 pm

Write to a file

2003-04-26T16:10:33-04:00

bind PUBM - * pubm:logev
proc pubm:logev ( nick uhost handle channel text) {
set line1 $line2
set line2 $line3
set line3 $line4
set line4 "$nick: $text"
set fid log.txt [open $fid]
set line $line4
puts $fid $line
catch {close $fid}
}

whats wrong ??... this is quite of a guess so dont flame me if i have done a realy "n00b n00b" misstake

Statistics: Posted by Guest — Sat Apr 26, 2003 4:10 pm

Write to a file

2003-04-26T15:47:41-04:00

humm... maby its me that realy stupid and missed somthing u just wrote or u missed out the part were i need to typ in what file i whant to open =P

Statistics: Posted by Guest — Sat Apr 26, 2003 3:47 pm

Write to a file

2003-04-26T15:31:14-04:00

thx alot mate

Statistics: Posted by Guest — Sat Apr 26, 2003 3:31 pm

Write to a file

2003-04-25T19:07:07-04:00

Code:

##open the file for writingset fid [open $fid]##set the line to put into the fileset line "This line into the file"##put the line into the fileputs $fid $line##close the filecatch {close $fid}

Read some tutorial or the TCL manual http://tcl.activestate.com/man/tcl8.4/T ... ntents.htm to get more info about how to open the file for reading/appending... etc

Statistics: Posted by Papillon — Fri Apr 25, 2003 7:07 pm

Write to a file

2003-04-25T16:22:25-04:00

how du i write things to a file ?...
i need to make a log script and that preety mutch the only thing i need to know =)

Statistics: Posted by Guest — Fri Apr 25, 2003 4:22 pm