Spanish Arrancar programa con datos antiguos

latasca

Member
Holo lo que quiero hacer es guardar mis datos que tenga en los edittext y cuando vuelva a arrrancar la aplicacion sigan los datos que habian antes de cerrarla.


Estoy buscando por todos los lado pero no veo la forma de como hacerlo..

Gracias!
 

latasca

Member
La idea del fichero como ago luego para que cada cosa valla a su sitio?

ejemplo : Salario Base = edittext1.text
plus convenio = edittext2.text.............

Gracias por la respuesta voy a ver el link que me dices y ya comento como quedo .
Un saludo y gracias de nuevo.
 

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola

La idea del fichero como ago luego para que cada cosa valla a su sitio?

Al igual que has echo:
B4X:
SalarioBase = edittext1.text
Que esta opcion te vale para grabar los datos al fichero al salir del programa

Luego, cuando entres en la aplicacion lees el fichero y le pasas los valores:
B4X:
If FirstTime Then 
  ' Leer el fichero
  edittext1.text = SalarioBase
End if

Saludos
 

latasca

Member
Hola



Al igual que has echo:
B4X:
SalarioBase = edittext1.text
Que esta opcion te vale para grabar los datos al fichero al salir del programa

Luego, cuando entres en la aplicacion lees el fichero y le pasas los valores:
B4X:
If FirstTime Then
  ' Leer el fichero
  edittext1.text = SalarioBase
End if

Saludos


Si utilizo tu ejemplo me al no tener la variable salario base lo pongo entre "" y claro me mete en el edittext1.text salario base...

Como tengo que leer el txt para ponerlo en cada casilla? lo tengo separado por comas ...

GRACIAS!
 

bgsoft

Well-Known Member
Licensed User
Longtime User
Hola, crear un fichero donde te guarde datos hay mil formas, te pongo una que espero te vaya bien

B4X:
Public Sub LeoFile()

  Dim DirFile As String
   
   
    Dim List1 As List
    List1.Initialize
 
    DirFile= File.DirDefaultExternal

  If File.Exists(DirFile, "DatosPantalla.dat") Then
      List1 = File.ReadList(DirFile, "DatosPantalla.dat")
        Try
           Texto1 = List1.Get(0)
           Texto2  = List1.Get(1)
            ' ............
            ' ............
        Catch
          Log("Error al leer Leofile")
          ' esto podria ser que has añadido una linea despues de crear el fichero
          ' o sea, creas el texto 1 y 2, lo grabas, añades el texto 3 y al leer como no existe (el Get(2) ) te da error 
        End Try
    Else
      ' NO EXISTE EL FICHERO PONGO POR DEFECTO
      texto1 = "pon lo que quieras por defecto, puede ser una cadena nula ("")"
      texto2 = "pon lo que quieras por defecto, puede ser una cadena nula ("")
            ' ............
            ' ............
            GraboFile
    End If
   
End Sub

Public Sub GraboFile()

  Dim DirFile As String
   
  Log("GraboFile")
   
   Dim List1 As List
   List1.Initialize
   
   DirFile= File.DirDefaultExternal

   List1.Clear
   List1.Add(Text1.Text)
   List1.Add(Text2.Text)
    ' ............
    ' ............

   Try
      File.WriteList(DirFile,"DatosPantalla.dat", List1)
   Catch
      Log("Error al escribir fichero DatosPantalla.dat")
   End Try
   
  End Sub

Saludos
 

latasca

Member
bgsoft Eres el amo muchas gracias eso es exactamente lo que estaba buscando muchas gracias voy a segir con el programa muchas gracias de nuevo..!!
 

bgsoft

Well-Known Member
Licensed User
Longtime User

latasca

Member
Una cosa mas jejej

Como hago para modificar el titulo e intentado modificar el primer mensaje pero no me sale el titulo y no veo donde hacerlo...
 
Top