Programación General > ADA

 Leer Un Documento .txt

(1/1)

keseki:
Perdonen las molestias, estaba buscando un codigo para poder leer un documento .txt para poder utilizar su contenido dentro del programa, y despues sacarlo ordenado.
Muchas gracias.

gandalfelgris:
Hola Keseki,
                  Aqui te envio un codigo para leer un fichero de texto caracter a caracter y guardarlo en un vector.

with Ada.Text_Io;
use Ada.Text_Io;
procedure Leer_fichero is
f:File_Type;
C:Character;
i:integer:=0;
begin
Open (f,In_File,"nombre_Fichero.txt");
while not End_Of_File(f) loop
  while not End_Of_LIne(f) loop
    get (f,C);
    i:=i+1;
  end loop;
end loop;
declare
  type Vector_Numeros is array (1..i) of integer;
  Vect:Vector_Enteros;
  i:=1;
  while not End_Of_File loop
    while not End_Of_Line loop
      get(f,C);
      vect(i)=Character'Pos©-Character'Pos(0);
      i:=i+1;
    end loop;
  end loop;

Deberia funcionar esto

Atentamente

Navegación

[0] Índice de Mensajes