可就是不成功，目标文件内容始终只有：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 时间: 2007-5-31 17:17
for {set b 0} {$b<=[expr [llength a(0)]-1]} {incr b} {
a(0)前面少了个$
按你这么写llength a(0)的值是1，不是3作者: zhangchen 时间: 2007-5-31 17:47
啊，才发现！谢谢！作者: yukisure 时间: 2007-5-31 22:43
set f1 [open "c:/data.txt"]
中括号里应该还有个r吧？
貌似set f1 [open "c:/data.txt" r]
不知道对否sdlkfj5作者: zhangchen 时间: 2007-6-1 08:42
set f1 [open "c:/data.txt"]
中括号里的r是默认的，不写也可以的作者: Susan1202 时间: 2007-6-1 18:31
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_ 时间: 2007-6-12 18:14 标题: 好 正找这东西呢,借签一下先sdlkfj2