5 lines
133 B
Tcl
5 lines
133 B
Tcl
|
set line ""
|
||
|
|
for { set io [open test.txt r] } { ![eof $io] } { gets $io line } {
|
||
|
|
if { $line != "" } { ...do something here... }
|
||
|
|
}
|