home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 12 / MA_Cover_12.iso / internet / compresshtml / plugins / html_compress_2.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1999-05-24  |  720 b   |  3 lines
  1. /** $VER: Version 0.09 (21 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=STRIP(SPACE(TRANSLATE(READLN(InDatei),'  ','09'X'0D'X),1));IF LENGTH(Zeile)==INDEX(Zeile,'>') THEN;CALL WRITECH(OutDatei,REPLACE(Zeile,'> <','><'));ELSE;CALL WRITECH(OutDatei,REPLACE(Zeile,'> <','><')' ');END;CALL CLOSE(InDatei);CALL CLOSE(OutDatei);RETURN 1;END;RETURN 0;REPLACE:PROCEDURE;PARSE ARG src,old,new;str='';DO WHILE ''~=src;loc=POS(old,src);PARSE VAR src sub (old) src;str=str||sub;IF loc~=0 THEN str=str||new;END;RETURN str;ERROR:;SYNTAX:;RETURN RC","SIGL