Reply To: Looping Through Lines of a File in Tcl

set f [open test.txt r]

while {[gets $f line] != -1} {
   puts $line
}