Programa en director
Quisiera saber como puedo hacer para que un usuario del programa que consta de varios capítulos navegue por el y se guarde su cuenta para que cuando vuelva a entrar al programa le pregunte si quiere empezar desde el inicio o desde donde se quedo la ultima vez que entro y automáticamente lo mande ahí.
1 Respuesta
Respuesta de bedelludrica
1
Pues lo normal es guardar esos datos en un archivo de texto tan pronto como el ususaio salga de la aplicación y tan proto abra la aplicación recupere esos datos:
On abrir
instancia=new(xtra "fileIO")
nombre_archivo="C:\Mis documentos\pref \nuevor.txt"
if nombre_archivo="" then return FALSE
--Esto analiza los errores si se producen
if status(instancia)<>0 then
fallo=error(instancia, status(instancia))
alert ("Se ha poducido un error en la lectura, debe repetir la operaciòn:")
return ""
end if
--Abre el archivo en la memoria para poder trabajar con el
--el tercer parámetro es 1 porque el archivo se abre solo para leer
openfile(instancia, nombre_archivo, 1)
--Se lee el contenido del archivo y se almacena en una variable
texto=readfile(instancia)
--Se borra la instancia
Closefile(instancia)
--Se guarda el contenido de la variable en un texto de director
member("texto").text=texto
end
on guardar
instancia=new(xtra "fileIO")
nombre_archivo="C:\Mis documentos\pref \nuevor.txt"
--Esto analiza los errores si se producen
if status(instancia)<>0 then
fallo=error(instancia, status(instancia))
alert ("Se ha poducido un error en la lectura, debe repetir la operaciòn:")
return ""
end if
--Abre el archivo en la memoria para poder trabajar con el
--el tercer parámetro es 1 porque el archivo se abre solo para grabar
openfile(instancia, nombre_archivo, 2)
--Borra el archivo existente, si es que existiera.
delete(instancia)
--Crea de nuevo ese archivo para poder guardarlo con los nuevos datos
createfile(instancia, nombre_archivo)
--Abre el archivo en la memoria para poder trabajar con el
--el tercer parámetro es 1 porque el archivo se abre solo para grabar
openfile(instancia, nombre_archivo, 2)
--Se crea una variable con el texto que se quiere guardar en el archivo txt
texto=member("texto").text
--Escribe dentro del archivo txt
Writestring(instancia, texto)
--Se borra la instancia
Closefile(instancia)
end
On abrir
instancia=new(xtra "fileIO")
nombre_archivo="C:\Mis documentos\pref \nuevor.txt"
if nombre_archivo="" then return FALSE
--Esto analiza los errores si se producen
if status(instancia)<>0 then
fallo=error(instancia, status(instancia))
alert ("Se ha poducido un error en la lectura, debe repetir la operaciòn:")
return ""
end if
--Abre el archivo en la memoria para poder trabajar con el
--el tercer parámetro es 1 porque el archivo se abre solo para leer
openfile(instancia, nombre_archivo, 1)
--Se lee el contenido del archivo y se almacena en una variable
texto=readfile(instancia)
--Se borra la instancia
Closefile(instancia)
--Se guarda el contenido de la variable en un texto de director
member("texto").text=texto
end
on guardar
instancia=new(xtra "fileIO")
nombre_archivo="C:\Mis documentos\pref \nuevor.txt"
--Esto analiza los errores si se producen
if status(instancia)<>0 then
fallo=error(instancia, status(instancia))
alert ("Se ha poducido un error en la lectura, debe repetir la operaciòn:")
return ""
end if
--Abre el archivo en la memoria para poder trabajar con el
--el tercer parámetro es 1 porque el archivo se abre solo para grabar
openfile(instancia, nombre_archivo, 2)
--Borra el archivo existente, si es que existiera.
delete(instancia)
--Crea de nuevo ese archivo para poder guardarlo con los nuevos datos
createfile(instancia, nombre_archivo)
--Abre el archivo en la memoria para poder trabajar con el
--el tercer parámetro es 1 porque el archivo se abre solo para grabar
openfile(instancia, nombre_archivo, 2)
--Se crea una variable con el texto que se quiere guardar en el archivo txt
texto=member("texto").text
--Escribe dentro del archivo txt
Writestring(instancia, texto)
--Se borra la instancia
Closefile(instancia)
end
