Pascal/Turbo Pascal - Unir muchos TXT en un solo archivo

   
Vista:

Unir muchos TXT en un solo archivo

Publicado por Jis. (1 intervención) el 17/07/2016 00:45:02
Saludos.

He utilizado 2 programas para unir varios archivos con extensión TXT en un solo, con muy pesimos resultados.
Es por ello, que busco si alguien pueda escribir el codigo fuente en modo consola para cumplir tal proposito.
Son 551 archivos TXT.
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

Unir muchos TXT en un solo archivo

Publicado por David (139 intervenciones) el 17/07/2016 11:35:00
Tal vez esto te sirva

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
program ListaDir;
 
uses Dos;
 
var
  Hallado: SearchRec;            { Información sobre el directorio }
                { El tipo SearchRec está definido en la unidad Dos }
  fo,fd:text;
  linea: string;
 
begin
  Assign(fd,'todos.txt');
  ReWrite(fd);                                           {crea el fichero destino}
  FindFirst( '*.txt', AnyFile, Hallado );       { Los busca }
  append(fd);                                              {Abre el fichero de destino para añadir líneas}
  while DosError = 0 do                         { Mientras existan }
    begin
 
    Assign(fo, Hallado.Name );
    reset(fo);
    While not eof(fo) do
      begin
        readln(fo,linea); {Lee una linea del fichero de orgien}
        writeln(fd,linea); {Y la añade al final del fichero de destino}
      end;
    close(fo);
    FindNext( Hallado );          { y busca el siguiente }
    end;
    close(fd);
    readln;
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