摘要: if { [catch {open $filn r } f ] } { Report 3 "Could not open initialisation file $filn" return 0 } set textin [split [ read $f ] "\n"] CloseFile $f 阅读全文
posted @ 2011-04-03 21:57 greencolor 阅读(1774) 评论(0) 推荐(0)