home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / v / v12n04.zip / SETVER.ZIP / RMSETVER.PAS < prev    next >
Pascal/Delphi Source File  |  1992-08-11  |  1KB  |  39 lines
  1. Program RmSetver;
  2. {
  3.  RMSETVER.EXE - Creates a batch file to delete all of the entries
  4.                 in the SETVER.EXE table.
  5.  Usage:  SETVER | RMSETVER
  6.  By: Pat Attanasio, CompuServe Id: 72401,371
  7. }
  8. CONST
  9.   BatName : String[12] = 'RMSETVER.BAT';
  10.   BatOpen : Boolean = False;
  11. VAR
  12.   RMSVBat : Text;
  13.   SVText  : String;
  14. BEGIN
  15.   WHILE NOT EOF(Input) DO
  16.     BEGIN
  17.       ReadLn(Input,SVText);
  18.       IF NOT ((SVText = '')
  19.            OR (SVText[1] = ' ')
  20.            OR (Copy(SVText,1,5) = 'NOTE:')
  21.            OR (Copy(SVText,1,5) = 'No en')) THEN
  22.         BEGIN
  23.           IF NOT BatOpen THEN
  24.             BEGIN
  25.               Assign(RMSVBat,BatName);
  26.               Rewrite(RMSVBat);
  27.               BatOpen := True;
  28.             END;
  29.           Writeln(RMSVBat,'SETVER ' + Copy(SVText,1,12) + ' /d');
  30.         END;
  31.     END;
  32.   IF BatOpen THEN
  33.     BEGIN
  34.       Close(RMSVBat);
  35.       Writeln(Batname + ' has been created');
  36.     END
  37.   ELSE Writeln('No entries found in version table');
  38. END.
  39.