home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Elysian Archive
/
AmigaElysianArchive.iso
/
wp_dtp
/
tked.lha
/
TKEd
/
Rexx
/
StripBlankLines.tked
< prev
Wrap
Text File
|
1992-07-03
|
745b
|
26 lines
/**
** ARexx program to delete all blank lines of text
**
** © Tom Kroener '92
**
**/
options results
address 'TKEd.1' /* Portname of the first started TKEd */
BeginOfFile /* Go to start */
LastLine /* Get number of the last line */
LastLineNr = result
LineNr = 0 /* Counter for the lines */
DO WHILE LineNr <= LastLineNr /* Counts until it reaches the last line */
GetLineLen /* Returns the length of the current line */
IF result = 0 /* If blank line then delete */
THEN DeleteLine
ELSE Cursor "DOWN" /* Goto next line */
LineNr = LineNr + 1 /* Increment linecounter */
END
EXIT 0