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 lineputs $line}
·
第一种方法:
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
}
更多推荐

所有评论(0)