文字列の中からある文字の個数を調べるには？

質問

お世話になります。
abcdefga という文字列の中からaが何個あるのか調べる関数はありますでしょうか？

http://www.yahoo.co.jp
URLからスラッシュの個数を調べたいのですが。

回答No.1

rukaandkaito · ベストアンサー

こんばんは！
そんな関数があるなら私も教えて欲しいですね＾＾

いつもは自分でコーディングしていますよ。

function strCont(strBuff as string, strSearch as string) as integer

　　dim intLcnt as integer
　　dim intHcnt as integer

　　intHcnt = 0
　　for intLcnt = 1 to len(strBuff)
　　　　if mid(strBuff,intLcnt,1) = strSearch then
　　　　　　intHcnt = intHcnt + 1
　　　　end if
　　next intLcnt
　　strCont = intHcnt

end function

補足

あぁ、やはりないんですね。残念。
でも関数をおしえていただいてなんとかなりそうです。ありがとうございます。

回答No.3

BLUEPIXY

aCount = UBound(Split("http://www.yahoo.co.jp", "/"))

お礼

ありがとうございます。
すごくわかりやすいです。

回答No.2

Wendy02

例えば、こんなところかな？

Private Sub Command1_Click()
　MsgBox strCount("http://www.yahoo.co.jp", "/")
End Sub

Function strCount(myString As String, SearchWd As String) As Long
　strCount = Len(myString) - Len(Replace(myString, SearchWd, ""))
End Function

別に関数があってもなくても、なくてもどちらでもよいと思いますが。これは、VBの話で、EXCELなら、上記のような方法を、一般的な関数の組み合わせでできるわけですが。

お礼

なるほど、勉強になります。