Sub Process_Globals
Dim ScriviTxt As TextWriter
Dim LeggiTxt As TextReader
End Sub
Sub Globals
Dim btnSalva As Button
Dim btnLeggi As Button
Dim txt1 As EditText
Dim txt2 As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("frmMain")
If File.ExternalWritable = False Then
Msgbox("Impossibile scrivere sulla card!", ".:ATTENZIONE:.")
Return
Else
Msgbox("E' possibile scrivere sulla card!", ".:ATTENZIONE:.")
End If
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub btnSalva_Click
ScriviTxt.Initialize(File.OpenOutput(File.DirRootExternal, "miei_dati.txt", True))
For i = 1 To 10
ScriviTxt.WriteLine(txt1.text & " n: " & i)
Next
ScriviTxt.Close
End Sub
Sub btnLeggi_Click
If File.Exists(File.DirRootExternal, "miei_dati.txt") = False Then
Msgbox("Non ho trovato il file da leggere!", ".:ATTENZIONE:.")
Return
End If
Dim strLinea As String
LeggiTxt.Initialize(File.OpenInput(File.DirRootExternal, "miei_dati.txt"))
txt2.Text = "Dimensioni file: " & File.Size(File.DirRootExternal, "miei_dati.txt") & " bytes." & CRLF
strLinea = LeggiTxt.ReadLine
Do While strLinea <> Null
txt2.Text = txt2.text & strLinea & CRLF
strLinea = LeggiTxt.ReadLine
Loop
LeggiTxt.Close
End Sub