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

التفاصيل

الزيارات: 3612

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

• < السابق
• التالي >