Posted to tcelle by lolz at Mon Sep 03 03:38:00 GMT 2007view raw
- if {[lindex $a 0] == ""} {
- set data [open [split chan1.txt "\n"]]
- set reading [read $data]
- putnotc $n "$reading"
- } else {
- set lolax [open chan1.txt a]
- puts $lolax [lindex $a 0]
- close $lolax
- }}