Read a specific line from a file: Difference between revisions

, REF STRING err

)BOOL:

# failed to open the file #

err := "Unable to open """ + file name + """";

FALSE

# file opened OK #

BOOL at eof := FALSE;

# set the EOF handler for the file #

on logical file end( input file

END

);

INT line number := 0;

STRING text;

WHILE line number < number

AND NOT at eof

DO

get( input file, ( text, newline ) );

line number +:= 1

OD;

# close the file #

close( input file );

# return the line or an error message depending on whether #

# we got a line with the required number or not #

FALSE

FI

main:(

# read the seventh line of this source and print it #

# (or an error message if we can't) #

STRING line;

STRING err;

IF read specific line( "read-specific-line.a68", 7, line, err )

THEN

print( ( "unable to read line: """ + err + """" ) )

FI

)</lang>

 

=={{header|AutoHotkey}}==