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

2024年5月8日 92次阅读来源: 时钟树上的小猴子

第一种方法：

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
}

    原文作者：时钟树上的小猴子
    原文地址: https://blog.csdn.net/qq_36480087/article/details/110956130
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。