AccessTr.neT

Bir metin içerisinde Her harften kaç tane olduğunu bulan fonksiyon var mı

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

Çok teşekkürler sn. @berduş