home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 12 / MA_Cover_12.iso / internet / compresshtml / plugins / html_compress_1.rexx next >
Encoding:
OS/2 REXX Batch file  |  1999-05-24  |  471 b   |  3 lines
  1. /** $VER: Version 0.07 (03 Apr 1999), by Thorsten Willert
  2. */
  3. ;SIGNAL ON ERROR;SIGNAL ON SYNTAX;PARSE ARG In,Out .;IF In="INFO" THEN;DO;RETURN 0","0","0","1;END;ELSE;DO;CALL OPEN(InDatei,In,"R");CALL OPEN(OutDatei,Out,"W");DO WHILE ~EOF(InDatei);Zeile=READLN(InDatei);IF STRIP(Zeile) ~=='' THEN CALL WRITELN(OutDatei,SPACE(STRIP(COMPRESS(Zeile,'09'X'0D'X)),1));ELSE ITERATE;END;CALL CLOSE(InDatei);CALL CLOSE(OutDatei);RETURN 1;END;RETURN 0;ERROR:;SYNTAX:;RETURN RC","SIGL