Tcl文件写入