TCL求救!!!!

zhangchen

TCL中为了实现,比如:
源文件内容                    目标文件内容
1 2 3                                1 4 5
4 7 8                                2 7 9
5 9 6                                3 8 6


可就是不成功，目标文件内容始终只有：1 4 5
帮忙调试一下，谢谢
set f1 [open "c:/data.txt"]
set f2 [open "c:/result.txt" w]
set i 0
while {![eof $f1]} {
gets $f1 a($i)
incr i
}
incr i -1
for {set b 0} {$b<=[expr [llength a(0)]-1]} {incr b} {
for {set c 0} {$c<=$i} {incr c} {
lappend h [lindex $a($c) $b]
}
puts $f2 $h
set h ""
}
close $f1
close $f2

lengz

for {set b 0} {$b<=[expr [llength a(0)]-1]} {incr b} {

a(0)前面少了个$   

按你这么写llength a(0)的值是1，不是3

zhangchen

啊，才发现！谢谢！

yukisure

set f1 [open "c:/data.txt"]
中括号里应该还有个r吧？
貌似set f1 [open "c:/data.txt" r]
不知道对否sdlkfj5

zhangchen

set f1 [open "c:/data.txt"]
中括号里的r是默认的，不写也可以的

Susan1202

set f1 [open "d:/data.txt"]
set f2 [open "d:/result.txt" w]
set i 0
while {![eof $f1]} {
gets $f1 a($i)
incr i
}
incr i -1
for {set b 0} {$b<=[expr [llength $a(0)]-1]} {incr b} {
for {set c 0} {$c<=$i} {incr c} {
lappend h [lindex $a($c) $b]
}
puts $f2 $h
set h ""
}
close $f1
close $f2
可以呀

zhang_jun_

正找这东西呢,借签一下先sdlkfj2