こんにちは 僕はこんな感じでやっています
'(↑省略)
'-------------------------------------------------------------------------------
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
DATA_IN
End Sub
'-------------------------------------------------------------------------------
Sub Activity_Pause (UserClosed As Boolean)
DATA_OUT
ExitApplication
End Sub
'-------------------------------------------------------------------------------
Sub DATA_IN 'データの読込み
Dim oReader as TextReader
oReader.Initialize(File.OpenInput(File.DirDefaultExternal,"DATA.txt"))
wDATA1=oReader.ReadLine
wDATA2=oReader.ReadLine
wDATA3=oReader.ReadLine
oReader.Close
End Sub
'-------------------------------------------------------------------------------
Sub DATA_OUT 'データの書き出し
Dim oWriter as TextWriter
oWriter.Initialize(File.OpenOutput(File.DirDefaultExternal,"DATA.txt",false))
oWriter.WriteLine(wDATA1)
oWriter.WriteLine(wDATA2)
oWriter.WriteLine(wDATA3)
oWriter.Close
End Sub
[/CODE]