Part of the Samples Website. 8/16/97.

samples.basicStuff.readTextFile

«Reads a text file created by samples.basicStuff.writeTextFile
«the file should contain the 50 states, each on its own line
«see comment at head of samples.basicStuff.writeTextFile for details
path = file.getSystemDisk () + "textfile"
if not file.exists (path)
dialog.alert ("Run samples.basicStuff.writeTextFile first.")
return
count = 1
file.open (path)
while not file.endOfFile (path)
s = file.readLine (path)
msg (s)
if s [not equal] states.nthState (count++)
speaker.beep ()
file.close (path)


This page was last built on Sat, Aug 16, 1997 at 6:39:26 PM. You can download the current set of sample scripts from our FTP site. Dave