منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

[attachment=9102]

السلام عليكم

أشكرك جزيل الشكر أخي 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 

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

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد ئوزبك

VB_Local

VB_Local

Ahmed_Mansoor

VB_Local

محمد ئوزبك