tcl空格问题

wgx198302

想用tcl建一个文件,内容都是空行的：
set a  [open c:\\2.txt w]
set x { }
for {set i 1} {$i<=1000} {incr i} {
puts $a $x }
close $a
  

打开2.txt没有内容（也没有空格）。
怎么修改才能在2.txt中有空行？

hqchen_23

看了一下你的程序,不太明白你初始化变量x是做什么用的，我对你的程序的理解是：对2.txt空白文件中写入1-1000个数字，如果是如我所理解的话，你可以将程序修改一下去掉set x{ } ,将底下的puts $a $x修改成puts $a $i那么可以在2.txt中写入1000个数字

rivermen

貌似他想要往2.txt文件里写1000个空格，是把？
set x { }

能不能改称 set x " "

把x值成 字符串，这个字符串是一个空格
可以吗？

gzj_06

楼主，你那个程序是可以实现往文件里写入空格的，只是每行只有一个空格而已，要想实现整行都是空格可以加个参数 -nonewline，至于set x { }还是set x " "无所谓，结果是一样的，程序如下：
set a  [open d:/3.txt w]
set x { }
for {set i 1} {$i<=1000} {incr i} {
puts -nonewline $a $x }
close $a
或
set a  [open d:/3.txt w]
set x " "
for {set i 1} {$i<=1000} {incr i} {
puts -nonewline $a $x }
close $a

wgx198302

问题已解决，是Script.NET出现了问题。
现在已经可以用了。