基本的にはinstrでひたすら検索するしかないかと。
で、それをモジュール化したものがこちらです!
ソフトへの組み込みやスクリプトの再配布、ご自由にお使いください。
#module 文字列加工
/*
文字列がいくつ含まれているかを検索する
str1 検索される文字列が格納されている文字列型変数名、または文字列
str2 検索を始めるインデックス
str3 検索する文字列
*/
#defcfunc Cinstr str str1,int int2,str str3
文字列 = str1
Index = int2
検索文字列 = str3
検索文字数 = strlen(str3)
ヒット数=0
repeat
開始in2 = instr(文字列,Index,検索文字列)
開始in = Index + 開始in2
if 開始in2!-1:ヒット数+1:else:break
Index + 開始in2 + 検索文字数
loop
return ヒット数
#global