home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
epm603a.zip
/
EPMREX.ZIP
/
UNHTML.ERX
< prev
Wrap
Text File
|
1995-11-10
|
931b
|
24 lines
/* UnHTML.ERX - EPM Rexx macro to remove HTML, by Larry Margolis */
/* Place in PATH, and invoke from EPM command line as: rx unhtml */
'extract /version/line'
if version.1 > 60000 then /* Got the (much) better version? */
grep = 'x' /* - use eXtended GREP; much faster! */
else /* Only the 5.51 "Enhanced Editor" ... */
grep = 'g' /* - have to use the older Grep option */
'display -2' /* Turn off messages. */
'0' /* Go to top of file. */
'c /<[^>]*>// *'grep /* Delete all tags. */
'0' /* Go to top of file. */
'c /</</ *' /* Handle some common symbols... */
'0'
'c />/>/ *'
'0'
'c /&/&/ *'
'0'
'c /"/"/ *'
'0'
'c / / / *'
'display 2' /* Turn messages back on. */
line.1 /* Position back where user was. */