Spanish txt o BD

#Region  Project Attributes
    #ApplicationLabel: txt
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Dim List1 As List
      Dim label1  As Label
      Dim label2  As Label
      Dim BotonOk As Button
      Dim Dato1 As String
      Dim Dato2 As String
      Dim DatosOk As Boolean
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("txt")
    List1.Initialize
    List1.Add(0)
    List1.Add(1)

    LeerFichero

    If DatosOk  Then
        label1.Text=Dato1
        label2.Text=Dato2
      ' SI existen datos, representarlos o hacer lo que quieras
    Else
        Msgbox("No hay datos","LEER")
      ' 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
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

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,"coordenadas.txt", List1)
  Catch
        Log("Error al escribir fichero Coordenadas.txt")
  End Try
End Sub

Sub LeerFichero()

  If File.Exists(File.DirDefaultExternal, "coordenadas.txt") Then
    List1 = File.ReadList(File.DirDefaultExternal, "coordenadas.txt")
    Dato1 = List1.Get(0)
    Dato2 = List1.Get(1)
    DatosOk = True'
    Msgbox("Hay datos","Cargando")
  Else
    Dato1 = ""
    Dato2 = ""
    DatosOk = False
    Msgbox("No hay datos","Cargando")
  End If
End Sub

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
   
   
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
     
      Dim Latitud As EditText
      Dim Longitud As EditText
      Dim Fecha As EditText
      Dim Hora As EditText
      Dim LatCoor As String
      Dim LonCoor As String
      Dim FechaCoor As String
      Dim HoraCoor As String
      Dim BotonOk As Button
     
      Dim Registro As TextWriter

End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("layout1")
       
End Sub

Sub Activity_Resume
   
   
End Sub

Sub Activity_Pause (UserClosed As Boolean)
   
End Sub

Sub BotonOK_Click
  LatCoor = Latitud.Text
  LonCoor = Longitud.Text
  FechaCoor = Fecha.Text
  HoraCoor = Hora.Text
 
  If Latitud.Text = "" Then
      LatCoor = "Null"
  End If
  If Longitud.Text = "" Then
      LonCoor = "Null"
  End If
  If Fecha.Text = "" Then
      FechaCoor = DateTime.Date(DateTime.Now)
  End If
  If Hora.Text = "" Then
      HoraCoor = DateTime.Time(DateTime.Now)
  End If
  Try
      GrabarFicheroVer2(FechaCoor,HoraCoor,LatCoor,LonCoor)
    Latitud.Text = ""
      Longitud.Text = ""
      Fecha.Text = ""
      Hora.Text = ""
      Latitud.RequestFocus
  Catch
      ToastMessageShow("Error al registrar en el archivo",True)
  End Try
 
End Sub
Sub GrabarFicheroVer2(FechaCoord As String, HoraCoord As String, Lat As String, Lon As String)
   
    Registro.Initialize(File.OpenOutput(File.DirRootExternal,"coordenadas.txt",True))
    Registro.WriteLine(FechaCoord & "," & HoraCoord & "," & Lat & "," & Lon)
    Registro.Close
   
   
End Sub