home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
private
/
ts1993.zip
/
RTIME.ZIP
/
NOBLANKS.PRG
< prev
next >
Wrap
Text File
|
1991-11-23
|
379b
|
18 lines
*
* Remove all blanks from a string
*
FUNCTION NOBLANKS
PARAMETER inString
*
outLen = LEN(inString)
inCount = 1
outString = ''
DO WHILE inCount <= outLen
IF SUBSTR(inString, inCount, 1) <> ' '
outString = outString + substr(inString, inCount, 1)
ENDIF
inCount=inCount+1
ENDDO
outString = outString + SPACE(outLen-LEN(outString))
RETURN outString