Tcl——逐行读取文件内容直到文件末尾

第一种方法：

set fp [open grade.txt r]
while {[gets $fp line]!=-1} {
puts $line
}

第二种方法：

set fp [open grade.txt r]
while {![eof $fp]} {
gets $fp line
puts $line
}
版权声明：本文为qq_36480087原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接和本声明。