Anonymous user
Read a file line by line: Difference between revisions
Add Seed7 example
(Add Seed7 example) |
|||
Line 843:
(display line)
(newline))</lang>
=={{header|Seed7}}==
<lang seed7>$ include "seed7_05.s7i";
const proc: main is func
local
var file: aFile is STD_NULL;
var string: line is "";
begin
aFile := open("input.txt", "r");
while hasNext(aFile) do
readln(aFile, line);
writeln("LINE: " <& line);
end while;
end func;</lang>
The function [http://seed7.sourceforge.net/libraries/file.htm#hasNext%28in_file%29 hasNext]
returns TRUE when at least one character can be read successfully.
=={{header|SNOBOL4}}==
| |||