Count occurrences of a substring: Difference between revisions

==={{header|True BASIC}}===

{{trans|QBasic}}

<lang qbasic>FUNCTION countsubstring(where$, what$)

LET c = 0

LET s = 1-LEN(what$)

DO

LET s = POS(where$,what$,s+LEN(what$))

IF 0 = s THEN EXIT DO

LET c = c+1

LOOP

LET countsubstring = c

END FUNCTION

PRINT "the three truths, th:", countSubstring("the three truths", "th")

PRINT "ababababab, abab:", countSubstring("ababababab", "abab")

END</lang>