19 lines
443 B
Text
19 lines
443 B
Text
local fn ReadFileByLine( fileID as int, url as CFURLRef )
|
|
CFStringRef currentLine
|
|
|
|
open @"I", fileID, url
|
|
do
|
|
currentLine = line input fileID
|
|
print currentLine
|
|
until ( eof(fileID) == YES )
|
|
close fileID
|
|
end fn
|
|
|
|
CFURLRef desktopURL, url
|
|
|
|
desktopURL = fn FileManagerURLForDirectory( NSDesktopDirectory, NSUserDomainMask )
|
|
url = fn URLByAppendingPathComponent( desktopURL, @"file.txt" )
|
|
|
|
fn ReadFileByLine( 1, url )
|
|
|
|
HandleEvents
|