Reading & Writing text

[Brian Heibert <brian at heibertservices dot com>]

  I have this to read text from a file:
  Dim f as folderitem
  Dim t as textinputstream
  dim hp as string
  f=preferencesfolder.child("InternetPal Settings")
  if f <> Nil then
    t = f.OpenAsTextFile
    
    settingsWIN.homepage.text= t.readline
    hp = t.readline
    settingsWIN.welcomespeech.text = t.readline
    t.close
  end if
  SettingsWIN.close
  
And this to write text to a file:
  Dim f as folderitem
  Dim t as textoutputstream
  f=preferencesfolder.child("InternetPal Settings")
  if f <> Nil then
    t = f.CreateTextFile
    t.writeline settingsWIN.homepage.text
    t.writeline settingsWIN.welcomespeech.text
    t.close
  end if
  SettingsWIN.close

Why isn't it loading the text?
I want to be able to load the text so I can set the HomePage to what the
user specifies and next time the app starts up it loads what the user
specified

Similar for welcomespeech.text except that I want to be able to  put Speak
welcomespeech.text

Brian
_______________________________________________
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>