「abccdefg」から「c」の個数を取得するには (ID:83907)

名前

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

本文 Function public function CharCount(byval txt as string,byval onechr as string)as integer Dim i as integer C_CarCount=0 for i=1 to len(txt)-len(nechar)+1 if mid(txt,i,len(onechr)= Onechar C_Charcount+=1 end if next exit function Usage: Dim int c_CHAR as integer c_char=CharCount("asdxzdsfhgfdbvfdsygeardfsafvsdfhewq2dadv","c")