تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يفتح برنامجى ملف عند الضغط على (فتح) ملف ذو امتداد معين مبرمج مصرى 3 63 11-11-17, 10:51 PM
آخر رد: مبرمج مصرى
  [vb6.0] لرجاء المساعدة في جملة adoPrimaryRS.Open إبراهيم خشافه1 20 295 25-10-17, 07:23 PM
آخر رد: إبراهيم خشافه1
  من لديه طريقه الطباعه على مكان معين من ورقه الستيكر a4 المجزئه الي 33 جزء scsi7000 2 153 30-07-17, 07:03 PM
آخر رد: scsi7000
  سؤال حول تجميع عامود فى قاعدة البيانات بشرط معين المبرمج العتيق 5 237 07-07-17, 03:09 AM
آخر رد: Ahmed_Mansoor
  تغيير لون تاكست بوكس عند سن معين بوزوينة علي 1 134 04-07-17, 02:06 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] ما هي جملة الكود لعرض ازرار الرسائل بالعربية larbihamri 6 235 26-05-17, 12:15 PM
آخر رد: larbihamri
  [vb6.0] الخصم من المرتب شهريا مبلغ معين بصورة تلقائيه abazrmhamed 1 237 30-03-17, 03:06 PM
آخر رد: المبرمج العتيق
  برنامج حساب ساعات إضافية فيصل علي 2 255 30-03-17, 02:17 AM
آخر رد: فيصل علي
  خطأ في جملة الاستعلام Ahmed Abdulla 7 240 28-03-17, 11:29 AM
آخر رد: Ahmed Abdulla
  ما الخطاء في جملة الاستعلام النالية حيث لا تعمل allobaed 2 177 26-02-17, 06:59 PM
آخر رد: allobaed

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


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