怎么通过activetcl将脚本语言写入.tcl文件中，

你得用一个文本编辑器编写代码，比方保存成abc.tcl，然后在命令行窗口执行wish 路径a.tcl，或者把*.tcl的打开方式设置成wish。文本编辑器我一般是用notepad++，你试试用记事本行不行，希望能帮到你。

你得用一个文本编辑器编写代码，比方保存成abc.tcl，然后在命令行窗口执行wish 路径\a.tcl，或者把*.tcl的打开方式设置成wish。文本编辑器我一般是用notepad++，你试试用记事本行不行，我没试过。

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