14 lines
390 B
Text
14 lines
390 B
Text
|
command readFileLineByLine
|
||
|
|
local tFile, tLines, startRead
|
||
|
|
put "/usr/share/dict/words" into tFile
|
||
|
|
open file tFile for text read
|
||
|
|
put true into startRead
|
||
|
|
repeat until it is empty and startRead is false
|
||
|
|
put false into startRead
|
||
|
|
read from file tFile for 1 line
|
||
|
|
add 1 to tLines
|
||
|
|
end repeat
|
||
|
|
close file tFile
|
||
|
|
put tLines
|
||
|
|
end readFileLineByLine
|