next up previous contents
Siguiente: Ficheros de acceso secuencial Subir: Ficheros de texto Anterior: Números y enumerados   Índice General

Ejemplo: Copia de un fichero de texto

Como ejemplo de uso de Text_IO, veamos un programa que nos permite copiar un fichero de texto.

         with Text_IO; 
         procedure Copiar_Fichero is
            Nombre          : String (1..20);
            Longitud_Nombre : Natural;
            Origen, Destino : Text_IO.File_Type; 
            Linea           : String (1 .. 120); 
            Longitud        : Natural;
         begin
            Text_IO.Put("Nombre del fichero a copiar: ");  
            Text_IO.Get_Line(Nombre, Longitud_Nombre); 

            Text_IO.Open( File => Origen, 
                          Mode => Text_IO.In_File,
                          Name => Nombre(1..Longitud_Nombre) );

            Text_IO.Put("Nombre del nuevo fichero: ");
            Text_IO.Get_Line(Nombre, Longitud_Nombre);

            Text_IO.Create (File => Destino, 
                            Mode => Text_IO.Out_File,
                            Name => Nombre(1 .. Longitud_Nombre) ); 
                            
            while not Text_IO.End_Of_File(Origen) loop
                  Text_IO.Get_Line (Origen, Linea, Longitud);
                  Text_IO.Put_Line (Destino, Linea(1..Longitud));
            end loop; 
            
            Text_IO.Close (Origen); 
            Text_IO.Close (Destino);
         end Copiar_Fichero;



Javier Miranda 2002-10-03