SoloCodigo
Programación General => Pascal => Mensaje iniciado por: orgaciber en Miércoles 26 de Mayo de 2004, 20:56
-
me gustari saber si me pueden ayudar para saber como crear un archivo sin tener que sobreescribirlo cuando buelva a grabar en el
-
lo puedes hace utilizando la opcion de reset.. :lightsabre:
-
Tal como dice Hao Asakura, utilizando el comando RESET; además, para desplazarte dentro del archivo, utiliza el comando SEEK. Saludos ;)
-
:kicking: NOOOOO FSR creo que diverjo con tu aclaratoria
ta bien que se cree un archivo con
assign (arch,c:\windows\escrit~1\archivo.dat);
ok luego si lo reseteas el archivo no se va a crear
por consiguiente
/*** se debe hacer:***/
rewrite(arch);
/*para luego */
reset(arch);
lo más conveniente es crear primero el archivo. una vez creado quitas el rewrite para evitar problems de sobre escritura del archivo en la dirección planteada. y utilizarías como lo dice el colega FSR un Seek --- append(en algunos casos) para correr por las líneas del archivo.
chauuuuuuuuuuuuuuuuuuuuuuuuuu :kicking: :whistling: :comp: :hola:
C++ BorlFJ
-
Parece que se te escapa un detalle: OrgaCiber habla de abrir un archivo ya existente y poder agregar más datos sin alterar los que ya tiene grabados. Respecto a lo del Append, sólo es válido con los archivos de tipo Text. Saludos ;)
-
Fire....
Fsr parece tener cierta razon, pues la funcion append solo es utilizada en archivos tipo txt.. pero de todos modos creo que la duda de orgaciber esta aclarada pero al parecer no la a leido..... :lightsabre:
-
Fire....
Fsr parece tener cierta razon, pues la funcion append solo es utilizada en archivos tipo txt.. pero de todos modos creo que la duda de orgaciber esta aclarada pero al parecer no la a leido..... :lightsabre:
-
:hola: Oye te envio este codigo haber si te sirve
Sigue adelante tio, en lo que te pueda ayudar ahi estoy.
Program CopiaArchivo;
Uses
Crt;
Var
ArchOrigen : Text;
ArchDestino : Text;
Linea : String;
NomArchOrigen : String;
NomArchDestino: String;
Begin
ClrScr;
Write('Ingrese Nombre de Archivo Origen : ');
ReadLn(NomArchOrigen);
Write('Ingrese Nombre de Archivo Destino: ');
ReadLn(NomArchDestino);
Assign( ArchOrigen , NomArchOrigen );
Reset( ArchOrigen );
Assign( ArchDestino , NomArchDestino );
ReWrite( ArchDestino );
HighVideo;
WriteLn('Copiando Archivo ... ');
While not( Eof( ArchOrigen ) ) Do
Begin
ReadLn( ArchOrigen , Linea );
WriteLn( ArchDestino , Linea );
WriteLn(Linea);
Delay( 1500 );
End;
LowVideo;
Close( ArchOrigen );
Close( ArchDestino );
End.
-
Ta bien... :kicking:
pues no hay mas q acalrar con eso no?..
Hakuna Matata... :hola:
-
Quisiera saber si quedo claro el codigo que escribi arriba :hola:
-
Por supuesto artemio esta bastante claro...