2011年4月15日
Open a file, and then readin a file tcl tk
摘要： if { [catch {open $filn r } f ] } { Report 3 "Could not open initialisation file $filn" return 0 } set textin [split [ read $f ] "\n"] CloseFile $f set full_text "" foreach line $textin { if { [string range $line end end] == "\\" } { append buffer [string rang 阅读全文
posted @ 2011-04-15 22:42 greencolor 阅读(145) 评论(0) 推荐(0)
Report write to logfile Tcl tk
摘要： proc Report { text args }{ set logfile [GetSystemVar SESSION_LOG] if { $logfile != "" } { WriteFile $logfile "$text" }}proc WriteFile { filename text args } { set file_mode "a+" for { set i 0 } { $i < [llength $args] } { incr i } { set arg [lindex $args $i] switch -r 阅读全文
posted @ 2011-04-15 00:12 greencolor 阅读(221) 评论(0) 推荐(0)