تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
حساب عدد حرف معين في جملة
#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 
الرد }}}
تم الشكر بواسطة: محمد ئوزبك


الردود في هذا الموضوع
RE: حساب عدد حرف معين في جملة - بواسطة Ahmed_Mansoor - 20-01-16, 11:39 PM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استعمال جملة استعلام group by Dev salah 3 372 03-07-25, 12:14 PM
آخر رد: hsab
  فتح نموذج بأكثر من جملة استعلام haitham Muhammed 1 225 13-11-24, 12:19 AM
آخر رد: السيد الغالي
  [vb6.0] تغيير نوع الخط فى عمود معين داخل الdatagrid haitham Muhammed 6 885 20-12-23, 01:11 PM
آخر رد: mhareek
Lightbulb [سؤال] إظهار قيمة خلية محددة عند النقر على صف معين في DataGrid1 أبو خالد الشكري 4 753 13-09-23, 09:52 PM
آخر رد: أبو خالد الشكري
  [vb6.0] طلب : كود إيجاد أقل قيمة في عمود معين بجدول من قاعدة بيانات أكسس hamada salah90 2 1,385 12-12-21, 11:12 PM
آخر رد: hamada salah90
  [vb6.0] أريد تنفيذ أمر معين يتم تنفيذه عند الضغط على مفتاح معين من لوحة المفاتيح hamada salah90 0 1,371 28-07-21, 11:32 PM
آخر رد: hamada salah90
  سوال بخصوص حساب المجموع الاختباري wolf1120 4 2,032 02-04-21, 12:42 AM
آخر رد: messry
  طلب كوداتصال بقاعدة في مسار معين ahmed201 2 1,363 03-02-21, 07:49 AM
آخر رد: ahmed201
  [vb6.0] كيف يمكن التمييز لاصناف بلون مميز حسب شرط معين mshflexgrid mhqom2020 2 1,708 21-12-20, 11:56 PM
آخر رد: mhqom2020
  هل يمكن اسناد جملة في حال وجود حقل في الجدول او عدمه gonm64 10 3,316 13-12-19, 08:22 PM
آخر رد: Ahmed_Mansoor

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


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