値の保存について

Tech4

Member
Licensed User
アプリケーションを終了時に値を保存して、次に起動時に、保存された値を読み込みたいだけなのですが、tag名Savetext1を付けて、終了時に値を保存して、起動時に、タグ名から値を読み込むという認識で問題ないでしょうか?復帰時にうまく反映されません。
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
EditText2.Text = Savetext1
End Sub

Sub Button3_Click ' 終了ボタン
Savetext1= EditText2.Text
ExitApplication
End Sub

Sub Activity_Pause (UserClosed As Boolean)
Savetext1 = EditText2.Text
End Sub

Sub Activity_Resume
EditText2.Text = Savetext1
End Sub
 

Tech4

Member
Licensed User
フォーラムでいろいろ調べたのですが、テキストなどで保存した値を読み込む方法が、おそらく正解みたいです。格納するデータを行などで区切って保存し、読み込むときは、TextArray(0)などで、行ごとに値を戻すだけです。
 

seck.jp

Member
Licensed User
こんにちは 僕はこんな感じでやっています

'(↑省略)
'-------------------------------------------------------------------------------
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]
 

Tech4

Member
Licensed User
こんばんはTech4です。サンプルありがとうございます。
ちなみに、.WriteLineというのは、ひょっとして、一行ずつ読み込んでるのですか?
私は、こんな感じです。
Sub loadfile
If File.Exists(File.DirRootExternal, "test.txt") Then
tempfile = File.ReadString(File.DirRootExternal, "test.txt")
Dim TextArray() As String
TextArray = Regex.Split(CRLF,tempfile)
EditText2.Text = TextArray(0)
EditText1.Text = TextArray(1)
EditText3.Text = TextArray(2)
EditText4.Text = TextArray(3)
EditText5.Text = TextArray(4)
End If
End Sub
 
Top