home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / textutil.lbr / MERGETXT.PZS / MERGETXT.PAS
Encoding:
Pascal/Delphi Source File  |  1993-10-25  |  1.0 KB  |  37 lines
  1.   PROGRAM MERGETEXT;
  2.   VAR
  3.     INFILE1,INFILE2,OUTFILE:TEXT;
  4.     INFILENAME1,INFILENAME2,OUTFILENAME:STRING(.14.);
  5.     ONELINE:STRING(.80.);
  6.  
  7.   BEGIN
  8.     CLRSCR;
  9.     WRITELN('PROGRAM TO MERGE TWO TEXT FILES INTO ONE');
  10.     WRITELN;
  11.     WRITE('FIRST TEXT FILE NAME? ');READLN(INFILENAME1);
  12.     WRITE('SECOND TEXT FILE NAME? ');READLN(INFILENAME2);
  13.     WRITE('OUTPUT FILE NAME? ');READLN(OUTFILENAME);
  14.     INFILENAME1:=INFILENAME1+'.TXT';
  15.     INFILENAME2:=INFILENAME2+'.TXT';
  16.     OUTFILENAME:=OUTFILENAME+'.TXT';
  17.     ASSIGN(INFILE1,INFILENAME1);
  18.     ASSIGN(INFILE2,INFILENAME2);
  19.     ASSIGN(OUTFILE,OUTFILENAME);
  20.     RESET(INFILE1);
  21.     RESET(INFILE2);
  22.     REWRITE(OUTFILE);
  23.     WHILE NOT EOF(INFILE1) DO
  24.     BEGIN
  25.       READLN(INFILE1,ONELINE);
  26.       WRITELN(OUTFILE,ONELINE);
  27.     END;
  28.     CLOSE(INFILE1);
  29.     WHILE NOT EOF(INFILE2) DO
  30.     BEGIN
  31.       READLN(INFILE2,ONELINE);
  32.       WRITELN(OUTFILE,ONELINE);
  33.     END;
  34.     CLOSE(INFILE2);
  35.     CLOSE(OUTFILE);
  36.   END.
  37.