home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / GENERAL / TS20.ZIP / NOBLANKS.PRG < prev    next >
Text File  |  1991-11-23  |  379b  |  18 lines
  1. * 
  2. * Remove all blanks from a string
  3. *
  4. FUNCTION NOBLANKS 
  5. PARAMETER inString
  6. *
  7. outLen = LEN(inString)
  8. inCount = 1
  9. outString = ''
  10. DO WHILE inCount <= outLen
  11.    IF SUBSTR(inString, inCount, 1) <> ' '
  12.      outString = outString + substr(inString, inCount, 1)
  13.    ENDIF
  14.    inCount=inCount+1
  15. ENDDO
  16. outString = outString + SPACE(outLen-LEN(outString))
  17. RETURN outString
  18.