home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST7.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  252 b   |  15 lines
  1. ********************
  2.  
  3. FUNCTION Occurence
  4.  
  5.    PARAMETERS _astring, _bstring
  6.  
  7.    PRIVATE _clipper_bug
  8.  
  9.    _clipper_bug = LEN(_bstring) - LEN(STRTRAN(_bstring, _astring,"") ) 
  10.    RETURN( INT(_clipper_bug / LEN(_astring)) )
  11.  
  12. * End of File
  13.  
  14.  
  15.