لمعرفة عدد تكرار حرف معين في جملة

  • طباعة

Public Function CountChar(StringToSearch As String, Character As String) As Integer

    CountChar = 0

    For i = 1 To Len(StringToSearch)

        If Mid(StringToSearch, i, 1) = Character Then CountChar = CountChar + 1

    Next i

End Function

Private Sub Command1_Click()

n = CountChar("منتديات الفريق العربي للبرمجة", "ر")

MsgBox n

End Sub



http://www.arabteam2000-forum.com/