Spanish Formularios y txt

Sub Globals
  Dim List1 As List
  Dim label1 as As Label
  Dim label2 as As Label
  Dim BotonOk As Button

  Dim Dato1 as String
  Dim Dato2 as String
  Dim DatosOk as Boolean

.........
........
.........



Sub Activity_Create(FirstTime As Boolean)
List1.Initialize
List1.Add(0)
List1.Add(1)

LeerFichero

if DatosOk  then
   ' SI existen datos, representarlos o hacer lo que quieras 
else
   ' NO existen datos guardados, llamar a introducir datos 
end if

 ' tambien puedes hacer esto para verificar los datos
 if Dato1 = "" and Dato2 = "" then
    ' NO existen datos guardados, llamar a introducir datos 
 Else 
    ' SI existen datos, representarlos o hacer lo que quieras 
 end if

........
........
..........

Sub BotonOK_Click

  Dato1=label1.Text
  Dato2=label2.Text
  GrabarFichero

End Sub

   



Sub GrabarFichero()
     
   List1.Clear
   List1.Add(Dato1)
   List1.Add(Dato2)
 

   Try
        File.WriteList(File.DirDefaultExternal,"NombreDelFichero.txt", List1)
   Catch
        Log("Error al escribir fichero NombreDelFichero.txt")
   End Try
   
End Sub


Sub LeerFichero()

  If File.Exists(File.DirDefaultExternal, "NombreDelFichero.txt") Then
     List1 = File.ReadList(File.DirDefaultExternal, "NombreDelFichero.txt")
     Dato1 = List1.Get(0)
     Dato2 = List1.Get(1)
     DatosOk = True
  Else
    Dato1 = ""
    Dato2 = ""
    DatosOk = False
  End If
   
   
End Sub

Sub Activity_Create(FirstTime As Boolean)

Activity.LoadLayout("Layout1")
.........
.........
.......