Question

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

尝试了很多次都搞不懂，生成的.tcl文件是难道通过其他软件来编写，然后通过activetcl的wish中source来调用？，不能直接通过activetcl直接进行编写并保存?,跪求各位大神

Answer 1

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

Answer 2

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

Answer 3

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