51Testing软件测试论坛

标题: tcl空格问题 [打印本页]

作者: wgx198302 时间: 2007-4-19 14:24
标题: tcl空格问题
想用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 时间: 2007-4-19 21:58
标题: 回复 #1 wgx198302 的帖子
看了一下你的程序,不太明白你初始化变量x是做什么用的，我对你的程序的理解是：对2.txt空白文件中写入1-1000个数字，如果是如我所理解的话，你可以将程序修改一下去掉set x{ } ,将底下的puts $a $x修改成puts $a $i那么可以在2.txt中写入1000个数字

作者: rivermen 时间: 2007-4-20 15:18
貌似他想要往2.txt文件里写1000个空格，是把？
set x { }

能不能改称 set x " "

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

作者: gzj_06 时间: 2007-4-21 09:56
楼主，你那个程序是可以实现往文件里写入空格的，只是每行只有一个空格而已，要想实现整行都是空格可以加个参数 -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 时间: 2007-4-26 14:52
问题已解决，是Script.NET出现了问题。
现在已经可以用了。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)