Read a specific line from a file: Difference between revisions

Uses FB's native file$openpanel command that opens a dialog window and allows the user to select the file to read.

<lang futurebasic>window 1

dim as long i : i = 1

dim as Str255 s, lineSeven

dim as CFURLRef url

ifurl (= files$(openpanel _CFURLRefOpen, "TEXT"1, @"Select text file", @url ) )

open "I", 2, @url

if ( i == 7 )

lineSeven = s

end if

i++