Variables
Como puedo asignar el texto de un campo a una variable.
Y como puedo almacenar el contenido de esta variable en un archivo o una base de datos y poder recuperarlo cuando inicie la película para trabajar sobre esta.
Saludos
Y como puedo almacenar el contenido de esta variable en un archivo o una base de datos y poder recuperarlo cuando inicie la película para trabajar sobre esta.
Saludos
1 respuesta
Respuesta de bubebu
1
Para almacenar el contenido de un campo de texto en una variable tienes que usar:
variable = member("campo").text
Si no tienes el nombre del miembro de texto, debes conocer el sprite en el que se encuentra. Por ejemplo, el siguiente script almacena el cotenido de un campo de texto al pulsar sobre el:
On mouseUp me
variable = sprite(me.spriteNum).member.text
end
Para guardar esa variable en un fichero de texto tienes que usar lo siguiente:
if objectP(miFichero) then set miFichero = 0
set miFichero = new (xtra "fileio")
set fNombre = the moviePath & "archivo.txt"
CreateFile (miFichero, fNombre)
openFile (miFichero, fNombre, 0)
writeString (miFichero, variable)
closeFile(miFichero)
set miFichero = 0
Y para leer el contenido del fichero en la variable:
if objectP(miFcihero) then set miFichero = 0
set miFichero = new(xtra"fileio")
set fNombre = the moviePath & "archivo.txt"
openFile (miFichero, fNombre, 1)
if status (miFichero) = 0 then
set variable = readFile (miFichero)
member("campo").text = variable
else
-- error
end if
closeFile(miFichero)
set miFichero = 0
variable = member("campo").text
Si no tienes el nombre del miembro de texto, debes conocer el sprite en el que se encuentra. Por ejemplo, el siguiente script almacena el cotenido de un campo de texto al pulsar sobre el:
On mouseUp me
variable = sprite(me.spriteNum).member.text
end
Para guardar esa variable en un fichero de texto tienes que usar lo siguiente:
if objectP(miFichero) then set miFichero = 0
set miFichero = new (xtra "fileio")
set fNombre = the moviePath & "archivo.txt"
CreateFile (miFichero, fNombre)
openFile (miFichero, fNombre, 0)
writeString (miFichero, variable)
closeFile(miFichero)
set miFichero = 0
Y para leer el contenido del fichero en la variable:
if objectP(miFcihero) then set miFichero = 0
set miFichero = new(xtra"fileio")
set fNombre = the moviePath & "archivo.txt"
openFile (miFichero, fNombre, 1)
if status (miFichero) = 0 then
set variable = readFile (miFichero)
member("campo").text = variable
else
-- error
end if
closeFile(miFichero)
set miFichero = 0
