ayuda!!! archivos planos!!! php ..
Publicado por jenny castaño (2 intervenciones) el 28/10/2009 01:57:06
bueno resulta que necesito elaborar un programa en php sobre archivos planos basado en un banco que deje pues almacenar los datos basicos del cliente,... mmm deje consultarlos por codigo o enlistarlos todos si desea.. y deje eliminar un solo registro.. bueno al enlistarlos aclaro que se pueda o que se muestre en una tabla.
aqui anexo lo que he hecho pero la verdad hasta ahora es muy complejo y no me funciona del todo deseo saber si hay una solucion mas corta porfa!! ayuda!!!
<?
IF ($GRABAR == 'GRABAR')
{
$ARCHIVO = FOPEN("DATOS1.DAT","a");
FPUTS($ARCHIVO,"\n");
FPUTS($ARCHIVO,"$CUENTA\t");
FPUTS($ARCHIVO,"$CLIENTE\t");
FPUTS($ARCHIVO,"$VALOR\t");
FPUTS($ARCHIVO,"$RADIO\t");
FCLOSE($ARCHIVO);
ECHO "REGISTRO GRABADO";
}
IF ($LISTAR == 'LISTAR')
{
$ARCHIVO = FOPEN("DATOS1.DAT","r");
ECHO "<TABLE BORDER = 1>
<TR>
<TH>CUENTA</TH>
<TH>CLIENTE</TH>
<TH>VALOR</TH>
<TH>TIPO</TH>
</TR>";
IF ($CUENTA == "")
{
WHILE ($DATOS = FSCANF($ARCHIVO, "%d\t%s\t%f\t%d\n"))
{
LIST($CUENTA, $CLIENTE,$VALOR, $RADIO) = $DATOS;
IF ($RADIO == 1)
{
$RADIO1 = "CONSIGNADO";
}
ELSE
{
$RADIO1 = "RETIRO";
}
ECHO "<TR>
<TD>$CUENTA</TD>
<TD>$CLIENTE</TD>
<TD>$VALOR</TD>
<TD>$RADIO1</TD>
</TR>";
}
}
ELSE
{
$I = TRUE;
WHILE ($DATOS = FSCANF($ARCHIVO, "%d\t%s\t%f\t%d") AND ($I == TRUE))
{
LIST($CUENTA1, $CLIENTE, $VALOR, $RADIO) = $DATOS;
IF($CUENTA == $CUENTA1)
{
IF ($RADIO == 1)
{
$RADIO1 = "CONSIGNADO";
}
ELSE
{
$RADIO1 = "RETIRO";
}
ECHO "<TR>
<TD>$CUENTA</TD>
<TD>$CLIENTE</TD>
<TD>$VALOR</TD>
<TD>$RADIO1</TD>
</TR>";
$I = FALSE;
}
}
IF ($I == TRUE)
{
ECHO "El numero de cuenta no existe";
}
}
FCLOSE($ARCHIVO);
}
IF ($ELIMINAR == 'ELIMINAR')
{
$ARCHIVO = FOPEN("DATOS1.DAT", "r");
$ARCHIVO1 = FOPEN("DATOS.DAT", "a");
WHILE ($DATOS = FSCANF($ARCHIVO, "%d\t%s\t%f\t%d"))
{
LIST($CUENTA1, $CLIENTE, $VALOR, $RADIO) = $DATOS;
IF ($CUENTA != $CUENTA1)
{
FPUTS($ARCHIVO,"\n");
FPUTS($ARCHIVO1,"$CUENTA1\t");
FPUTS($ARCHIVO1,"$CLIENTE1\t");
FPUTS($ARCHIVO1,"$VALOR1\t");
FPUTS($ARCHIVO1,"$RADIO1\t");
}
}
FCLOSE($ARCHIVO1);
FCLOSE($ARCHIVO);
$ARCHIVO = FOPEN("DATOS1.DAT", "w");
FWRITE($ARCHIVO, "");
FCLOSE($ARCHIVO);
$ARCHIVO = FOPEN("DATOS1.DAT", "a");
$ARCHIVO1 = FOPEN("DATOS.DAT","r");
WHILE ($DATOS1 = FSCANF($ARCHIVO1, "%d\t%s\t%f\t%d"))
{
LIST($CUENTA, $CLIENTE, $VALOR, $RADIO) = $DATOS1;
FPUTS($ARCHIVO,"\n");
FPUTS($ARCHIVO,"$CUENTA\t");
FPUTS($ARCHIVO,"$CLIENTE\t");
FPUTS($ARCHIVO,"$VALOR\t");
FPUTS($ARCHIVO,"$RADIO\t");
}
FCLOSE($ARCHIVO1);
FCLOSE($ARCHIVO);
}
ECHO "<HTML>
<BODY>
<FORM ACTION = '' METHOD = POST>
<PRE><FONT FACE = ARIAL>
BANCO ABBBB<BR>
CUENTA <INPUT TYPE = TEXT NAME = CUENTA><BR>
CLIENTE <INPUT TYPE = TEXT NAME = CLIENTE><BR>
VALOR <INPUT TYPE = TEXT NAME = VALOR><BR>
CONSIGNADO <INPUT TYPE = RADIO NAME = RADIO VALUE = 1> RETIRO <INPUT TYPE = RADIO NAME = RADIO VALUE = 2><BR>
</PRE>
<PRE>
<INPUT TYPE = SUBMIT NAME = GRABAR VALUE = GRABAR><INPUT TYPE = SUBMIT NAME = LISTAR VALUE = LISTAR><INPUT TYPE = SUBMIT NAME = ELIMINAR VALUE = ELIMINAR>
</FONT></PRE>
</FORM>
</BODY>
</HTML>";
?>
aqui anexo lo que he hecho pero la verdad hasta ahora es muy complejo y no me funciona del todo deseo saber si hay una solucion mas corta porfa!! ayuda!!!
<?
IF ($GRABAR == 'GRABAR')
{
$ARCHIVO = FOPEN("DATOS1.DAT","a");
FPUTS($ARCHIVO,"\n");
FPUTS($ARCHIVO,"$CUENTA\t");
FPUTS($ARCHIVO,"$CLIENTE\t");
FPUTS($ARCHIVO,"$VALOR\t");
FPUTS($ARCHIVO,"$RADIO\t");
FCLOSE($ARCHIVO);
ECHO "REGISTRO GRABADO";
}
IF ($LISTAR == 'LISTAR')
{
$ARCHIVO = FOPEN("DATOS1.DAT","r");
ECHO "<TABLE BORDER = 1>
<TR>
<TH>CUENTA</TH>
<TH>CLIENTE</TH>
<TH>VALOR</TH>
<TH>TIPO</TH>
</TR>";
IF ($CUENTA == "")
{
WHILE ($DATOS = FSCANF($ARCHIVO, "%d\t%s\t%f\t%d\n"))
{
LIST($CUENTA, $CLIENTE,$VALOR, $RADIO) = $DATOS;
IF ($RADIO == 1)
{
$RADIO1 = "CONSIGNADO";
}
ELSE
{
$RADIO1 = "RETIRO";
}
ECHO "<TR>
<TD>$CUENTA</TD>
<TD>$CLIENTE</TD>
<TD>$VALOR</TD>
<TD>$RADIO1</TD>
</TR>";
}
}
ELSE
{
$I = TRUE;
WHILE ($DATOS = FSCANF($ARCHIVO, "%d\t%s\t%f\t%d") AND ($I == TRUE))
{
LIST($CUENTA1, $CLIENTE, $VALOR, $RADIO) = $DATOS;
IF($CUENTA == $CUENTA1)
{
IF ($RADIO == 1)
{
$RADIO1 = "CONSIGNADO";
}
ELSE
{
$RADIO1 = "RETIRO";
}
ECHO "<TR>
<TD>$CUENTA</TD>
<TD>$CLIENTE</TD>
<TD>$VALOR</TD>
<TD>$RADIO1</TD>
</TR>";
$I = FALSE;
}
}
IF ($I == TRUE)
{
ECHO "El numero de cuenta no existe";
}
}
FCLOSE($ARCHIVO);
}
IF ($ELIMINAR == 'ELIMINAR')
{
$ARCHIVO = FOPEN("DATOS1.DAT", "r");
$ARCHIVO1 = FOPEN("DATOS.DAT", "a");
WHILE ($DATOS = FSCANF($ARCHIVO, "%d\t%s\t%f\t%d"))
{
LIST($CUENTA1, $CLIENTE, $VALOR, $RADIO) = $DATOS;
IF ($CUENTA != $CUENTA1)
{
FPUTS($ARCHIVO,"\n");
FPUTS($ARCHIVO1,"$CUENTA1\t");
FPUTS($ARCHIVO1,"$CLIENTE1\t");
FPUTS($ARCHIVO1,"$VALOR1\t");
FPUTS($ARCHIVO1,"$RADIO1\t");
}
}
FCLOSE($ARCHIVO1);
FCLOSE($ARCHIVO);
$ARCHIVO = FOPEN("DATOS1.DAT", "w");
FWRITE($ARCHIVO, "");
FCLOSE($ARCHIVO);
$ARCHIVO = FOPEN("DATOS1.DAT", "a");
$ARCHIVO1 = FOPEN("DATOS.DAT","r");
WHILE ($DATOS1 = FSCANF($ARCHIVO1, "%d\t%s\t%f\t%d"))
{
LIST($CUENTA, $CLIENTE, $VALOR, $RADIO) = $DATOS1;
FPUTS($ARCHIVO,"\n");
FPUTS($ARCHIVO,"$CUENTA\t");
FPUTS($ARCHIVO,"$CLIENTE\t");
FPUTS($ARCHIVO,"$VALOR\t");
FPUTS($ARCHIVO,"$RADIO\t");
}
FCLOSE($ARCHIVO1);
FCLOSE($ARCHIVO);
}
ECHO "<HTML>
<BODY>
<FORM ACTION = '' METHOD = POST>
<PRE><FONT FACE = ARIAL>
BANCO ABBBB<BR>
CUENTA <INPUT TYPE = TEXT NAME = CUENTA><BR>
CLIENTE <INPUT TYPE = TEXT NAME = CLIENTE><BR>
VALOR <INPUT TYPE = TEXT NAME = VALOR><BR>
CONSIGNADO <INPUT TYPE = RADIO NAME = RADIO VALUE = 1> RETIRO <INPUT TYPE = RADIO NAME = RADIO VALUE = 2><BR>
</PRE>
<PRE>
<INPUT TYPE = SUBMIT NAME = GRABAR VALUE = GRABAR><INPUT TYPE = SUBMIT NAME = LISTAR VALUE = LISTAR><INPUT TYPE = SUBMIT NAME = ELIMINAR VALUE = ELIMINAR>
</FONT></PRE>
</FORM>
</BODY>
</HTML>";
?>
Valora esta pregunta
0