تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حساب عدد حرف معين في جملة
#1
السلام عليكم ورحمة الله
اخوتي الاكرام ان امكنكم في مساعدتي لمعرفة كود
حساب عدد حرف معين في جملة داخل تيكست
صراحة وجدت الحل في فجوال نت لكني احتاجه في فجوال بيسك 6
تحياتي
الرد }}}}
تم الشكر بواسطة: VB_Local
#2
السلام عليكم
ولا يهمك اخوي محمد ساكتب لك مثالا على ذلك . .
(( وَبَشِّرِ الصَّابِرِينَ الَّذِينَ إِذَا أَصَابَتْهُم مُّصِيبَةٌ قَالُواْ إِنَّا لِلّهِ وَإِنَّا إِلَيْهِ رَاجِعونَ ))
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor , محمد ئوزبك
#3
السلام عليكم 
ارجو ان يفيدك هذا المثال  Smile

.rar   CountChar.rar (الحجم : 2.42 ك ب / التحميلات : 34)
(( وَبَشِّرِ الصَّابِرِينَ الَّذِينَ إِذَا أَصَابَتْهُم مُّصِيبَةٌ قَالُواْ إِنَّا لِلّهِ وَإِنَّا إِلَيْهِ رَاجِعونَ ))
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , Ahmed_Mansoor , محمد ئوزبك
#4
السلام عليكم

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

PHP كود :
Private Function Get_RepeatCount(zText As StringzChar As String) As Integer

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

TmpText 
zText

Char_Position 
InStr(1TmpTextzChar)

Do While 
Char_Position 0
   Repeat_Count 
Repeat_Count 1
   TmpText 
Mid$(TmpTextChar_Position 1)
   
Char_Position InStr(1TmpTextzChar)
Loop

Get_RepeatCount 
Repeat_Count

End 
Function

Private 
Sub Command1_Click()

MsgBox Get_RepeatCount(Text1.Text"m")

End Sub 
الرد }}}}
تم الشكر بواسطة: محمد ئوزبك
#5
اخي احمد
لك في قلبي كل حب وامتنان وتقدير
عشقت هذا المنتدى لوجود اشخاص طيبين ورائعين مثلك
بارك الله فيك وجزاك الله عنا خير الجزاء
(( وَبَشِّرِ الصَّابِرِينَ الَّذِينَ إِذَا أَصَابَتْهُم مُّصِيبَةٌ قَالُواْ إِنَّا لِلّهِ وَإِنَّا إِلَيْهِ رَاجِعونَ ))
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor , ahmedabdelaliem , محمد ئوزبك
#6
اشكركم اخوتي الاعزاء وحقيقة وليس للمجاملة اجمل واروع منتدى شاركت فيه بحياتي ليس فقط للمعلومات الموجودة فيه لكن لتفاعل الاعضاء مع بعضهم بالاجابة .
اشكركم اخوية الاعزاء لجهودكم وربي يحفظكم Heart
الرد }}}}
تم الشكر بواسطة: VB_Local , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  من لديه طريقه الطباعه على مكان معين من ورقه الستيكر a4 المجزئه الي 33 جزء scsi7000 2 105 30-07-17, 07:03 PM
آخر رد: scsi7000
  سؤال حول تجميع عامود فى قاعدة البيانات بشرط معين المبرمج العتيق 5 196 07-07-17, 03:09 AM
آخر رد: Ahmed_Mansoor
  تغيير لون تاكست بوكس عند سن معين بوزوينة علي 1 98 04-07-17, 02:06 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] ما هي جملة الكود لعرض ازرار الرسائل بالعربية larbihamri 6 202 26-05-17, 12:15 PM
آخر رد: larbihamri
  [vb6.0] الخصم من المرتب شهريا مبلغ معين بصورة تلقائيه abazrmhamed 1 194 30-03-17, 03:06 PM
آخر رد: المبرمج العتيق
  برنامج حساب ساعات إضافية فيصل علي 2 202 30-03-17, 02:17 AM
آخر رد: فيصل علي
  خطأ في جملة الاستعلام Ahmed Abdulla 7 222 28-03-17, 11:29 AM
آخر رد: Ahmed Abdulla
  ما الخطاء في جملة الاستعلام النالية حيث لا تعمل allobaed 2 140 26-02-17, 06:59 PM
آخر رد: allobaed
  [vb6.0] كيف يتم فتح موقع في توقيت معين tempman 2 197 14-02-17, 10:43 AM
آخر رد: tempman
  وضع كود لحدث معين لمجموعة ادوات من نفس النوع عبدالله الصافي 6 337 14-01-17, 01:16 PM
آخر رد: عبد العزيز البسكري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم