değişkendeki karakter tekrar sayısı

herhangi bir tanımlı değişkene atanan değerde, istediğimiz karakterin kaç kez tekrarlandığını nasıl bulabiliriz.

örnek

değişkenin değeri: ahmet ali ile boluya gitti
a karakterinin tekrarlanma sayısı: 3

<%
Str = "ahmet ali ile boluya gitti"
Sp_Str = Split(Str,"")
Karakter = "a"
c = 0
for i = 0 to uBound(Sp_Str)
 If Sp_Str(i)=Karakter Then
  c = c + 1
 End If
Next

Response.Write(Karakter&" kullanım sayısı "&c&" adet." )
%>

teşekkürler hocam. Benim aklımda farklı bir çözüm vardı, yani sırf bu işlevi yerine getirecek bir formülün varlığı var mı diye düşünmüştüm.

karakter tekrar sayısı=islev(değişken,"a") gibi bir formülasyonun varlığı var mıdır diye kendi kendime düşünüyordum.

İlgine teşekkürler tekrar kolay gelsin...

Function yaz işte kodlardan ama öyle özel bir değişken yok classic asp de.

Speedlayer senin yazdığın işlem sonuç bile vermiyor

<%
Kelime = "Merhaba nasılsın iyimisin"

Islem = Split(Kelime,"a")

Kactane=Ubound(Islem)

Response.Write(Kactane)

'Sonuç = 3 Tane
%>

Yok bunu Function a dönüştürüm Dersen

<%
Function AdetBul(Degisken,Islem)
  If Degisken="" Then Exit Function
  Islem = Split(Degisken,Islem)
  AdetBul = Ubound(Islem)
End Function


Kelime = "Merhaba nalan ne var ne yok nasılsın"
HangiKarakter = "a"

KactaneVarSoyle= AdetBul(Kelime,HangiKarakter)

Response.Write(KactaneVarSoyle)
%>

Allah kolaylık versin .asp de çare tükenmez Gecerli İşlemlerin bittiği yerde function başlar function ların bittiği yerde componentler başlar

teşekkür ediyorum hocam.