プロが教えるわが家の防犯対策術!

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

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

A 回答 (3件)

こんばんは!


そんな関数があるなら私も教えて欲しいですね^^

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

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

この回答への補足

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

補足日時:2005/06/24 03:14
    • good
    • 0

aCount = UBound(Split("

http://www.yahoo.co.jp", "/"))
    • good
    • 0
この回答へのお礼

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

お礼日時:2005/06/24 08:59

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



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なら、上記のような方法を、一般的な関数の組み合わせでできるわけですが。
    • good
    • 0
この回答へのお礼

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

お礼日時:2005/06/24 08:58

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!