Foros del Web » Programación para mayores de 30 ;) » Programación General »

Formulario Que Guarde Datos En Archivo Txt

Estas en el tema de Formulario Que Guarde Datos En Archivo Txt en el foro de Programación General en Foros del Web. Si miren, necesito un programa para reservar boletos de un evento, y que el usuario pueda introducir su nombre, direccion, email, telefono, numero de boletos, ...
  #1 (permalink)  
Antiguo 30/08/2002, 17:01
 
Fecha de Ingreso: febrero-2001
Mensajes: 26
Antigüedad: 23 años, 2 meses
Puntos: 0
Formulario Que Guarde Datos En Archivo Txt

Si miren, necesito un programa para reservar boletos de un evento, y que el usuario pueda introducir su nombre, direccion, email, telefono, numero de boletos, y que al dar enviar, los datos se guarden en una especie de página web (html), y pueda ser vista por mi, pero que se le asigne un numero que vaya progresivamente, algo asi como el numero de orden, y al dar enviar, le aparezcan tu numero de orden es "008" por un decir, y tendras que pagar $200 suponiendo que el boleto vale $50 y en el formulario el indico que queria 4 boletos, y toda esta info se mande a la página web.

GRACIAS DE ANTEMANO
SALUDOS
ME URGE
MIL GRACIAS DE NUEVO!
  #2 (permalink)  
Antiguo 30/08/2002, 19:38
 
Fecha de Ingreso: junio-2002
Mensajes: 25
Antigüedad: 21 años, 10 meses
Puntos: 0
Re: Formulario Que Guarde Datos En Archivo Txt

Hola,

Pues porque no utilizas una pequeña BD... de MySql podría ser....

o bueno más fácil, con archivod de texto.

así:

recibes tus datos del formulario en el script de perl, y luego los guardas en una archivo de texto:

(yo tengo una rutina que me parsea el query string y me deja todo en %FORM, si quieres te la paso)

bueno recibes los datos:

$nombre = $FORM{"nombre"};
$direccion = $FORM{"direccion"};
$telefono = $FORM{"telefono"};
$email = $FORM{"email"};
$boletos = $FORM{"boletos"};

los guardamos en el archivo:

primero obtenemos el utimo consecutivo:

(esta no es la mejor forma, lo hize ahorita rapido)

open(BD,"./BaseDeDatos.txt");

while(<BD>){
push(@records,$_);
}

close(BD);

obtienes el utlimo record:

$ultimo = pop(@records);

los espliteas para sacar los campos:(suponiendo que los separas con pipe |)

@fields = split(/\|/,$ultimo);

y en el primer campo seguramente tendrias el consecutivo (o campo llave)

$ultimoconsecutivo = shift(@fields);

$nuevoconsecutivo = $ultimoconsecutivo + 1;

ahora si guardas el nuevo:

open(BD,">>./BaseDeDatos.txt");

print BD"$nuevoconsecutovpo|$nombre|$direccion|$tel efono|$email|$boletos\n";

close(BD);

y luego ya de manera similar leyendo el archivo registro por registro los imprimes en un html cuando queiras...

espero que te sirva, lo hize ahorita al vapor, para que mas o menos te des una idea...

saludos!....

--
Oscar Américo Sosa de la Cerda
[email protected]
<a href="http://www.sysmakers.com" target="_blank">Sys Makers Dot Com</a>
Develop it!
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 16:17.