幾つもカウントする文字列がある場合は配列文字列変数に 代入してカウントも配列変数でやる方法がありますが 事前にカウントする文字列を用意する必要があります。 配列文字列変数C$にカウントする文字列を代入しておいて FOR I=0 TO LEN(A$)-1 B$=MID$(A$,I,5) FOR J=0 TO LEN(C$)-1 IF B$=C$[J] THEN C[J]=C{J]+1 NEXT NEXT