Pascal/Turbo Pascal - Leer matrices de archivos de texto

   
Vista:

Leer matrices de archivos de texto

Publicado por nachs (2 intervenciones) el 09/12/2007 17:24:17
Como hago para leer una matriz situada en un archivo de texto?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Leer matrices de archivos de texto

Publicado por nachs (2 intervenciones) el 09/12/2007 19:03:20
Listo, gracias igual.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Leer matrices de archivos de texto

Publicado por Mechanic (181 intervenciones) el 11/12/2007 03:07:00
En un archivo de texto solamente puede haber texto.
Pero los datos del archivo sí los puedes almacenar en una matriz.

Aquí hay un ejemplo de cómo leer un archivo de texto.

uses Crt;
var Arch : Text;
Cadena : String;
begin
ClrScr;
Assign(Arch,'1.txt');
Reset(Arch);
While not seekeof(Arch) do
begin
ReadLn(Arch,Cadena);
WriteLn(Cadena);
end;
Close(Arch);
ReadKey
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Leer matrices de archivos de texto

Publicado por Diego (1 intervención) el 16/06/2009 01:27:56
Eso esta bien, pero aprovecho la oportunidad para ver como puedo leer datos desde un TXT y guardarlos en una matriz de 4 dimensiones.

si necesitan mas datos el problema es asi.

tengo 5 empleados
5 actividades
4 departamentes
12 meses del año

y cada empleado puede estar varias veces en cualquier depto y cualquier actividad en cualquier momento del año

yo necesitaria poder tener los datos asi.

x ej.
matriz[1,1,2,3]

eso seria depto 1
empleado1
actividad2
marzo

y despues leeria la cantidad de veces que estuvo el empleado en ese depto/actividad.

hice esto pero no funciona

while not eof(g) do
begin
for i:=1 to 5 do
begin
readln(g,m[i,j,k,l]);
for j:=1 to 4 do
begin
readln(g,m[i,j,k,l]);
for k:=1 to 5 do
begin
readln(g,m[i,j,k,l]);
for l:=1 to 12 do
begin
readln(g,m[i,j,k,l]);
writeln('Matriz: ',m[i,j,k,l]);
end;
end;
end;
end;
end;
readkey;
end.


o


while not eof(g) do
begin
for i:=1 to 5 do
for j:=1 to 4 do
for k:=1 to 5 do
for l:=1 to 12 do
readln(g,m[i,j,k,l]);

readkey;
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar