I got this code I am trying to Save & Load a preferences file
I got the stuff after else working but I can't get the Open code working
yes I know that there is something missing after stream1. I looked
for it
and I don't know what to put there
Brian
dim languagetype as string
dim ff as folderitem
if languagetype = "U.S. English" then
ff = PreferencesFolder.child("SpeakAssist 2006r1 Language
Settings")
if ff.exists then
// load US English Settings
ff.OpenAsTextFile
Dim stream1 as textinputstream
stream1=ff.OpenAsTextFile
stream1.
else
// Create US English Settings
ff.CreateTextFile
Dim stream as TextOutputStream
stream=ff.CreateTextFile
ff.MacCreator="ttxt"
Stream.writeline "U.S. English"
//Stream.WriteLine ("Jimmy Olsen")
Stream.Close
end if
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
