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

.rar   CountChar.rar (الحجم : 2.42 ك ب / التحميلات : 37)
(( وَبَشِّرِ الصَّابِرِينَ الَّذِينَ إِذَا أَصَابَتْهُم مُّصِيبَةٌ قَالُواْ إِنَّا لِلّهِ وَإِنَّا إِلَيْهِ رَاجِعونَ ))
الرد
تم الشكر بواسطة: 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] برجاء المساعدة ضروري فى جملة select ahmed eldouskey 3 120 02-05-18, 07:25 PM
آخر رد: Amir_alzubidy
  [vb6.0] لرجاء المساعدة في جملة adoPrimaryRS.Open إبراهيم خشافه1 23 626 05-04-18, 04:37 AM
آخر رد: sendbad100
  تعديل كشف حساب للعميل w123eg 1 104 29-03-18, 10:19 AM
آخر رد: nourmandour
  تعديل كشف حساب للعميل w123eg 2 116 25-02-18, 10:28 AM
آخر رد: w123eg
  اريد حساب checksum شيك سوم لسطر معين wolf1120 1 57 19-02-18, 11:23 PM
آخر رد: wolf1120
  حساب عمود ب هيكس ديسمال wolf1120 0 50 09-01-18, 07:52 PM
آخر رد: wolf1120
  [سؤال] جملة استعلام amro_demon 6 187 02-01-18, 04:50 PM
آخر رد: amro_demon
  كيف يفتح برنامجى ملف عند الضغط على (فتح) ملف ذو امتداد معين مبرمج مصرى 3 142 11-11-17, 10:51 PM
آخر رد: مبرمج مصرى
  من لديه طريقه الطباعه على مكان معين من ورقه الستيكر a4 المجزئه الي 33 جزء scsi7000 2 264 30-07-17, 07:03 PM
آخر رد: scsi7000
  سؤال حول تجميع عامود فى قاعدة البيانات بشرط معين المبرمج العتيق 5 326 07-07-17, 03:09 AM
آخر رد: Ahmed_Mansoor

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


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