home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST14.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  499 b   |  27 lines
  1. ********************
  2.  
  3. FUNCTION Stripfrom
  4.  
  5.    PARAMETERS _stripstr, _what_strp
  6.  
  7.    PRIVATE _qaz, _retstr
  8.  
  9.    IF PCOUNT() != 2
  10.       RETURN ("")
  11.    ENDIF
  12.  
  13.    * _what_strp may be longer than one element
  14.    * for one element, STRTRAN() is as effective
  15.  
  16.    _retstr = ""
  17.  
  18.    FOR _qaz = 1 TO LEN(_stripstr)
  19.       IF (SUBSTR(_stripstr, _qaz, 1)) $ _what_strp
  20.       ELSE
  21.          _retstr = _retstr + SUBSTR(_stripstr, _qaz, 1)
  22.       ENDIF
  23.    NEXT
  24.    RETURN(_retstr)
  25.  
  26. * End of File
  27.