set f [open e:/00 w] #用句柄f以写的方式打开文件e;/00 文件必须存在

puts $f ＂nihao＂ #将内容nihao输出至句柄f

close $f #关闭句柄f

set f [open e:/00 r] #用句柄f以读的方式打开文件e;/00 若文件不存在将创建

while {[gets $f line] >= 0} { #读取一行内容

puts $f

} #显示该项内容

close $f #关闭句柄f

set f [open e:/00 a] #用句柄f以追加的方式打开文件e;/00 若文件不存在将创建

puts $f ＂nihao＂ #将内容nihao输出至句柄f

close $f #关闭句柄f