Skip to main content

AccessTr.neT


Her Harften Kaç Tane

Her Harften Kaç Tane

Çözüldü #1
Bir metin içerisinde Her harften kaç tane olduğunu bulan fonksiyon var mı
@benbendedeilem
Cevapla
#2
modüle eklenecek kod
Function KcHrf(txtGirdi As String) As String
Dim TmpGirdi As String
Dim Hrf As String
Dim ilkHrfSay, SonHrfSay As Long
TmpGirdi = Replace(Trim(txtGirdi), " ", "")

Do While Len(TmpGirdi) > 0
ilkHrfSay = Len(TmpGirdi)
Hrf = Left(TmpGirdi, 1)
TmpGirdi = Replace(TmpGirdi, Hrf, "")
SonHrfSay = Len(TmpGirdi)
KcHrf = Hrf & " harfinden : " & ilkHrfSay - SonHrfSay & vbCrLf & KcHrf
Loop

End Function
Cevapla
#3
Çok teşekkürler sn. @berduş
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task