Spanish Arrancar programa con datos antiguos

[latasca]

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!

 

[bgsoft]

Hola

Salvalos en un fichero y cuando entre leelos.

Tambien puedes emplear StateManager:
https://www.b4x.com/android/forum/t...plications-settings-and-state.9777/#post54161

Saludos

 

[latasca]

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]

Hola

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

Al igual que has echo:

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:

If FirstTime Then 
  ' Leer el fichero
  edittext1.text = SalarioBase
End if

Saludos

 

[latasca]

Hola



Al igual que has echo:

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:

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]

Hola, crear un fichero donde te guarde datos hay mil formas, te pongo una que espero te vaya bien

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]

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]

Hola

No debes dar las gracias, estamos aqui para ayudarnos entre todos, y el mejor favor que me haces es modificando el post y añadirle [SOLUCIONADO] y abusando ya un poco mas, lo añades al post de Heppy:
https://www.b4x.com/android/forum/t...mo-por-cada-registros-json-crear-un-pa.44948/

De estas forma hacemos el foro mas agil.

Saludos

 

[latasca]

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...

 

[cas6678]

En tu post arriba a la derecha veras: Thread tools y dentro edit title.

Saludos.