[Ahmed_Mansoor]

السلام عليكم

أشكرك جزيل الشكر أخي VB_Local على جهودك الرائعه في تقديم المساعده للأخوه الأعضاء , جزاك الله كل خير , إن شاء الله في ميزان حسناتك , وأسمح لي بالمشاركه في هذا الموضوع بداله تقوم بحساب عدد تكرار حرف معين في نص معين :

PHP كود :

Private Function Get_RepeatCount(zText As String, zChar As String) As Integer

Dim Char_Position As Integer
Dim Repeat_Count As Integer
Dim TmpText As String

TmpText = zText

Char_Position = InStr(1, TmpText, zChar)

Do While Char_Position > 0
   Repeat_Count = Repeat_Count + 1
   TmpText = Mid$(TmpText, Char_Position + 1)
   Char_Position = InStr(1, TmpText, zChar)
Loop

Get_RepeatCount = Repeat_Count

End Function

Private Sub Command1_Click()

MsgBox Get_RepeatCount(Text1.Text, "m")

End Sub