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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد حساب checksum شيك سوم لسطر معين wolf1120 1 0 19-02-18, 11:23 PM
آخر رد: wolf1120
  [vb6.0] لرجاء المساعدة في جملة adoPrimaryRS.Open إبراهيم خشافه1 21 355 27-01-18, 02:13 AM
آخر رد: awidan76
  حساب عمود ب هيكس ديسمال wolf1120 0 28 09-01-18, 07:52 PM
آخر رد: wolf1120
  [سؤال] جملة استعلام amro_demon 6 104 02-01-18, 04:50 PM
آخر رد: amro_demon
  كيف يفتح برنامجى ملف عند الضغط على (فتح) ملف ذو امتداد معين مبرمج مصرى 3 73 11-11-17, 10:51 PM
آخر رد: مبرمج مصرى
  من لديه طريقه الطباعه على مكان معين من ورقه الستيكر a4 المجزئه الي 33 جزء scsi7000 2 192 30-07-17, 07:03 PM
آخر رد: scsi7000
  سؤال حول تجميع عامود فى قاعدة البيانات بشرط معين المبرمج العتيق 5 276 07-07-17, 03:09 AM
آخر رد: Ahmed_Mansoor
  تغيير لون تاكست بوكس عند سن معين بوزوينة علي 1 158 04-07-17, 02:06 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] ما هي جملة الكود لعرض ازرار الرسائل بالعربية larbihamri 6 273 26-05-17, 12:15 PM
آخر رد: larbihamri
  [vb6.0] الخصم من المرتب شهريا مبلغ معين بصورة تلقائيه abazrmhamed 1 263 30-03-17, 03:06 PM
آخر رد: المبرمج العتيق

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


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