[محمد ئوزبك]

السلام عليكم ورحمة الله
اخوتي الاكرام ان امكنكم في مساعدتي لمعرفة كود
حساب عدد حرف معين في جملة داخل تيكست
صراحة وجدت الحل في فجوال نت لكني احتاجه في فجوال بيسك 6
تحياتي

[VB_Local]

السلام عليكم
ولا يهمك اخوي محمد ساكتب لك مثالا على ذلك . .

[VB_Local]

السلام عليكم 
ارجو ان يفيدك هذا المثال 

  CountChar.rar (الحجم : 2.42 ك ب / التحميلات : 53)

[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 


[VB_Local]

اخي احمد
لك في قلبي كل حب وامتنان وتقدير
عشقت هذا المنتدى لوجود اشخاص طيبين ورائعين مثلك
بارك الله فيك وجزاك الله عنا خير الجزاء

[محمد ئوزبك]

اشكركم اخوتي الاعزاء وحقيقة وليس للمجاملة اجمل واروع منتدى شاركت فيه بحياتي ليس فقط للمعلومات الموجودة فيه لكن لتفاعل الاعضاء مع بعضهم بالاجابة .
اشكركم اخوية الاعزاء لجهودكم وربي يحفظكم