home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST23.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  919 b   |  39 lines
  1. ********************
  2.  
  3. FUNCTION Occur_at
  4.  
  5.    PARAMETERS _occur_a, _occur_b, _occur_c, _occur_d
  6.  
  7.    PRIVATE _new_occ, _occ_down
  8.  
  9.    * _occur_a = the substring to seach with
  10.    * _occur_b = the main string for the searching
  11.    * _occur_c = which occurnce of _occur_a in _occur_b
  12.    * _occur_d = how many characters to returns from that position
  13.  
  14.    IF PCOUNT() = 2
  15.       _occur_c = 1
  16.       _occur_d = 0
  17.    ELSEIF PCOUNT() = 3
  18.       _occur_d = 0
  19.    ENDIF
  20.  
  21.    IF _occur_c > OCCURENCE(_occur_a, _occur_b) .OR. EMPTY(_occur_c)
  22.       RETURN("")
  23.    ENDIF
  24.  
  25.    IF _occur_c = 0
  26.       RETURN(_occur_b)
  27.    ENDIF
  28.  
  29.    _new_occ = _occur_b
  30.  
  31.    FOR _occ_down = 1 TO _occur_c
  32.        _new_occ = SUBSTR(_new_occ, AT(_occur_a, _new_occ)+1)
  33.    NEXT
  34.    _occur_b = SUBSTR(_occur_b, AT(_new_occ, _occur_b) - 1)
  35.  
  36.    RETURN(SUBSTR(_occur_b, 1, IF(EMPTY(_occur_d), LEN(_occur_b), _occur_d)))
  37.    
  38. * End of File
  39.