出現回数を数えるには？ (ID:105299)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 'Text1から特定の文字を見つける sub FindStrings(fd as String) dim st as string dim fl as long dim cn as long dim i as long if fd="" then exit sub st=Text1.Text fl=len(fd) cn=0 for i=1 to len(st)-fl if mid$(st,i,fl)=fd then cn=cn+1 next end sub これで多分できます。 ちょ〜原始的なので、アルゴリズムを変えるといいとおもいます。