+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : حساب عدد حرف معين في جملة (/showthread.php?tid=14448)
حساب عدد حرف معين في جملة - محمد ئوزبك - 20-01-16
السلام عليكم ورحمة الله
اخوتي الاكرام ان امكنكم في مساعدتي لمعرفة كود
حساب عدد حرف معين في جملة داخل تيكست
صراحة وجدت الحل في فجوال نت لكني احتاجه في فجوال بيسك 6
تحياتي
RE: حساب عدد حرف معين في جملة - VB_Local - 20-01-16
السلام عليكم
ولا يهمك اخوي محمد ساكتب لك مثالا على ذلك . .
RE: حساب عدد حرف معين في جملة - VB_Local - 20-01-16
السلام عليكم
ارجو ان يفيدك هذا المثال
[attachment=9102]
RE: حساب عدد حرف معين في جملة - Ahmed_Mansoor - 20-01-16
السلام عليكم
أشكرك جزيل الشكر أخي 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
RE: حساب عدد حرف معين في جملة - VB_Local - 21-01-16
اخي احمد
لك في قلبي كل حب وامتنان وتقدير
عشقت هذا المنتدى لوجود اشخاص طيبين ورائعين مثلك
بارك الله فيك وجزاك الله عنا خير الجزاء
RE: حساب عدد حرف معين في جملة - محمد ئوزبك - 23-01-16
اشكركم اخوتي الاعزاء وحقيقة وليس للمجاملة اجمل واروع منتدى شاركت فيه بحياتي ليس فقط للمعلومات الموجودة فيه لكن لتفاعل الاعضاء مع بعضهم بالاجابة .
اشكركم اخوية الاعزاء لجهودكم وربي يحفظكم
