Hi Brian.
On Aug 15, 2006, at 6:22 PM, Brian Heibert wrote:
yes I know that there is something missing after stream1. I looked
for it
and I don't know what to put there
Brian
Yup, there is stuff missing.
But this version (really minor modifications of your code) compiles &
runs & does something.
Hopefully it will get you one step along the way to a properly-
designed program.
There is still lots of stuff missing.
Russ
dim languagetype as string = "U.S. English"
dim ff as folderitem
dim s as String
dim Stream1 as TextInputStream
Dim stream2 as TextOutputStream
if languagetype = "U.S. English" then
ff = PreferencesFolder.child("SpeakAssist 2006r1 Language
Settings")
if ff.exists then
// load US English Settings
stream1=ff.OpenAsTextFile
if stream1 <> nil then
s = stream1.ReadLine
MsgBox s
end if
else
// Create US English Settings
stream2=ff.CreateTextFile
ff.MacCreator="ttxt"
Stream2.writeline "U.S. English"
Stream2.Close
end if
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>
