Reply To: Looping Through Lines of a File in Tcl

[Max Drown (Infor)]

Found this on the web. Seems to work.

Code:

set f [open test.txt r]

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

-- Max Drown (Infor)