Archivos en Pascal

Archivos en Pascal :


Crear ,escribir, y leer archivos en Pascal



Archivo de números enteros:


program archivos1;
uses crt;

type
archivo = file of integer;
dato=string[20];

procedure carga(var archivoL:archivo);
var
num:integer;
begin
writeln('Ingrese Numero');
readln(num);
write(archivoL,num);
end;

procedure crearArchivo(var archivoL:archivo;archivoF:dato);

begin
writeln('Ingrese Nombre del Archivo') ;
readln(archivoF);
assign(archivoL,archivoF);
rewrite(archivoL);
end;

procedure leerArchivo(var archivoL:archivo);
var
num:integer;
begin
reset(archivoL);
while not EOF (archivoL) do
begin
read(archivoL,num) ;
writeln(num);
end;
end;

var
archivoL:archivo;
archivoF: dato;
opc:integer;

begin
clrscr;
repeat
writeln('1)Crear Archivo');
writeln('2)Insertar Dato');
writeln('3)Mostrar Archivo');
writeln('0)Salir');
readln(opc);
clrscr;

case opc of
1:crearArchivo(archivoL,archivoF) ;
2:carga(archivoL);
3:leerArchivo(archivoL);
end
until (opc=0);
readkey;
end.


Archivo de registro y campo fijos:


program archivos3;
uses crt;
type
dato=string[20];
registro=record
nombre:dato;
direccion:dato;
edad:integer;
end;

archivo=file of registro;

procedure crearArchivo(var archivoL:archivo) ;
var
archivoF:dato;
begin
writeln('ingrese nombre de archivo');
readln(archivoF);
assign(archivoL,archivoF);
rewrite(archivoL);
end;


procedure cargaReg(var r:registro);
begin
writeln('ingrese nombre');
readln(r.nombre);
writeln('ingrese direccion');
readln(r.direccion);
writeln('ingrese edad');
readln(r.edad) ;
end;

procedure cargaArchivo(var archivoL:archivo) ;
var
r:registro;
begin
cargaReg(r);
write(archivoL,r);
end;


procedure mostrar(var archivoL:archivo) ;
var
r:registro;
begin
reset(archivoL) ;
while not EOF (archivoL) do
begin
read(archivoL,r);
writeln('Nombre : ', r.nombre);
writeln('Direccion : ',r.direccion) ;
writeln('edad : ', r.edad );
writeln;
writeln;
end;
end;


var
archivoL:archivo;
opc:integer;

begin
clrscr;
repeat
writeln('1)Crear Archivo');
writeln('2)Insertar Registro ');
writeln('3)Mostrar Registros');
writeln('0)Salir');
readln(opc);
case opc of
1:crearArchivo(archivoL);
2:cargaArchivo(archivoL);
3:mostrar(archivoL);
end;
until opc=0;
readkey;
close(archivoL) ;
end.



Archivo de registro y campo variable:





program archivo2;
uses crt;


type
dato=string[20];
archivo=file of char;

procedure crearArchivo(var archivoL:archivo);
var
nombreArchivo:dato;
begin
writeln('ingrese nombre del archivo');
readln(nombreArchivo);
assign(archivoL,nombreArchivo);
rewrite(archivoL);
end;




procedure escribir(var archivoL:archivo; c:char );

begin
write(archivoL,c);
end;




procedure cargaRegistro(var archivoL:archivo);
var
cadena:dato;
i:integer;
del_camp:char;
del_reg:char;
begin
del_camp:='@';
del_reg:='&';
writeln('ingrese campo (zzz para terminar) ');
readln(cadena);

while (cadena <>'zzz') do
begin
for i:=1 to Length(cadena) do
escribir(archivoL,cadena);

writeln('ingrese campo (zzz para terminar' );
readln(cadena);
if (cadena<>'zzz') then
escribir(archivoL,del_camp);

end;
escribir(archivoL,del_reg) ;
end;




procedure mostrar (var archivoL:archivo) ;
var
c:char;
begin
reset(archivoL);
while NOT EOF(archivoL) do
begin
read(archivoL,c);
if ( c='&') then

writeln

else if (c='@') then
write(' ')
else
write(c);
end;
writeln;
end;



var
archivoL:archivo;
opc:integer;

begin
repeat
writeln('1)Crear Archivo');
writeln('2)Ingrese Registro');
writeln('3)Mostrar Archivo');
writeln('0)Salir');
readln(opc);
case opc of
1:crearArchivo(archivoL);
2:cargaRegistro(archivoL);
3:mostrar(archivoL);
end;

until opc=0;
readkey;
end.



Archivos en Java: http://www.taringa.net/posts/info/14974561/Archivos-en--Java.html

Crear base de datos en Mysql: http://www.taringa.net/posts/info/14954692/Crear-base-de-datos-en-Mysql.html

Hacer un chat en Java : http://www.taringa.net/posts/info/14948409/Hace-un-chat.html


Tenes dudas ? , pasa por : www.tengocodigos.com.ar

1 comentario - Archivos en Pascal

@Gallito154
GRACIAS! Me sirvió un monton