TextBox内の特定文字の数を数えたい

お世話になります。
あるTextBox内の例えば"a"の数を数える場合は、どの様にしたら良いでしょうか？

よろしくお願いします。

No.6 回答者： otto0001otto 回答日時： 2006/09/09 09:25

Dim d() As String

d = Split(Text1.Text, "a")
Debug.Print UBound(d)

をお試し下さい。

No.5 回答者： don_go 回答日時： 2006/09/09 00:00

Private Sub Command1_Click()

Dim aaa As String
Dim sp As Integer
Dim cnt As Integer

aaa = Text1.Text
cnt = 0
sp = 0
Do
sp = InStr(sp + 1, aaa, "a")
If sp > 0 Then
cnt = cnt + 1
End If
Loop While (sp > 0)
MsgBox cnt
End Sub

No.4 回答者： noname#22222 回答日時： 2006/09/08 19:55

Private Sub CommandButton1_Click()

　　Dim I　　　 As Integer
　　Dim L　　　 As Integer
　　Dim N　　　 As Integer
　　Dim strText As String
　　
　　strText = "abcabcabc"
　　L = Len(strText)
　　For I = 1 To L
　　　　N = N - (Mid$(strText, I, 1) = "a")
　　Next I
　　MsgBox N
End Sub

No.3 回答者： SUPER-NEO 回答日時： 2006/09/08 18:02

Dim s As String

Dim cnt As Integer

s = textBox1.Text
cnt = 0

For I=0 To Len(s)
If Mid(s, I, 1) = "a" Then
cnt = cnt + 1
End If
Next I


変数 cnt の中身には、"a"の件数が格納されています。

No.2 回答者： king_joe1006 回答日時： 2006/09/08 17:19

A = text1.text

CNT = 0
do until instr(A,"a") = 0
A = mid(instr(A,"a") + 1,len(A))
CNT = CNT + 1
loop

で最終的にCNTに数が入ってきませんか？

No.1 回答者： neKo_deux 回答日時： 2006/09/08 17:17

=Len(元の文字列)-Len(Replace(元の文字列, "a", ""))

とか。