TCL求救!!!!
TCL中为了实现,比如:源文件内容 目标文件内容
1 2 3 1 4 5
4 7 8 2 7 9
5 9 6 3 8 6
可就是不成功，目标文件内容始终只有：1 4 5
帮忙调试一下，谢谢
set f1
set f2
set i 0
while {!} {
gets $f1 a($i)
incr i
}
incr i -1
for {set b 0} {$b<=-1]} {incr b} {
for {set c 0} {$c<=$i} {incr c} {
lappend h
}
puts $f2 $h
set h ""
}
close $f1
close $f2 for {set b 0} {$b<=-1]} {incr b} {
a(0)前面少了个$
按你这么写llength a(0)的值是1，不是3 啊，才发现！谢谢！ set f1
中括号里应该还有个r吧？
貌似set f1
不知道对否sdlkfj5 set f1
中括号里的r是默认的，不写也可以的 set f1
set f2
set i 0
while {!} {
gets $f1 a($i)
incr i
}
incr i -1
for {set b 0} {$b<=-1]} {incr b} {
for {set c 0} {$c<=$i} {incr c} {
lappend h
}
puts $f2 $h
set h ""
}
close $f1
close $f2
可以呀
好
正找这东西呢,借签一下先sdlkfj2
页:
[1]
