MY SNIPPET PAGE


Line Input from File

filedialog "Open text file","*.txt",file$

DIM LineArray$(1000)

counter=1

open file$ for input as #f

    While eof(#f)=0
        Line input #f, Line$ 
        LineArray$(counter)=Line$ : counter=counter+1
            print Line$
    Wend

print:print:print
print "The number of lines in this file is " + str$(counter)
print "Line number 7 in this file is:   " + LineArray$(7)
  close #f