home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 21 / AACD 21.iso / AACD / Programming / Comal / Tutorial / Prg10.2 < prev    next >
Encoding:
Text File  |  2001-04-11  |  222 b   |  14 lines
  1. // Program 8.2
  2.  
  3. PRINT Count("ab","abcdababefgab")
  4.  
  5. FUNC Count(pattern$,text$)
  6.   LOCAL Cnt, pos
  7.   Cnt:=0
  8.   pos:=pattern$ IN text$
  9.   IF pos>0 THEN
  10.     Cnt:=1+Count(pattern$,text$(pos+1..))
  11.   ENDIF
  12.   RETURN Cnt
  13. ENDFUNC Count
  14.