home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / textutil.lbr / SPLITTXT.PZS / SPLITTXT.PAS
Encoding:
Pascal/Delphi Source File  |  1993-10-25  |  1.3 KB  |  46 lines
  1.   PROGRAM SPLITTEXT;
  2.   VAR
  3.     INFILE,OUTFILE1,OUTFILE2:TEXT;
  4.     INFILENAME,OUTFILENAME1,OUTFILENAME2:STRING(.14.);
  5.     ONELINE:STRING(.80.);
  6.     NUMBERLINES,I:INTEGER;
  7.  
  8.   BEGIN
  9.     CLRSCR;
  10.     WRITELN('PROGRAM TO SPLIT TEXT FILE INTO TWO SMALLER FILES');
  11.     WRITELN;
  12.     WRITE('INPUT FILE NAME? ');READLN(INFILENAME);
  13.     WRITE('FIRST OUTPUT FILE NAME? ');READLN(OUTFILENAME1);
  14.     WRITE('SECOND OUTPUT FILE NAME? ');READLN(OUTFILENAME2);
  15.     INFILENAME:=INFILENAME+'.TXT';
  16.     OUTFILENAME1:=OUTFILENAME1+'.TXT';
  17.     OUTFILENAME2:=OUTFILENAME2+'.TXT';
  18.     ASSIGN(INFILE,INFILENAME);
  19.     ASSIGN(OUTFILE1,OUTFILENAME1);
  20.     ASSIGN(OUTFILE2,OUTFILENAME2);
  21.     NUMBERLINES:=0;
  22.     RESET(INFILE);
  23.     WHILE NOT EOF(INFILE) DO
  24.     BEGIN
  25.       READLN(INFILE,ONELINE);
  26.       NUMBERLINES:=NUMBERLINES+1;
  27.     END;
  28.     NUMBERLINES:=NUMBERLINES DIV 2;
  29.     RESET(INFILE);
  30.     REWRITE(OUTFILE1);
  31.     FOR I:=1 TO NUMBERLINES DO
  32.     BEGIN
  33.       READLN(INFILE,ONELINE);
  34.       WRITELN(OUTFILE1,ONELINE);
  35.     END;
  36.     CLOSE(OUTFILE1);
  37.     REWRITE(OUTFILE2);
  38.     WHILE NOT EOF(INFILE) DO
  39.     BEGIN
  40.       READLN(INFILE,ONELINE);
  41.       WRITELN(OUTFILE2,ONELINE);
  42.     END;
  43.     CLOSE(INFILE);
  44.     CLOSE(OUTFILE2);
  45.   END.
  46.