RosettaCodeData/Task/Loops-For/Tcl/loops-for-3.tcl

set line ""
for { set io [open test.txt r] } { ![eof $io] } { gets $io line } {
    if { $line != "" } { ...do something here... }
}