(تمت الاجابة) هل من كود لحساب عدد مرات تكرار حرف معين في حقل

[أبا عمر]

السلام عليكم ورحمة الله وبركاته وبعد

إخواني الأعزاء كيف حالكم لعلكم بخير

سؤالي هو

هل من كود لحساب عدد مرات إدخال حرف معين في حقل نصي ؟

مثال لو أدخلت في مربع نص مثلا الكلمة التالية " ععععع " فهل من كود لحساب عدد مرات إدخال حرف العين ؟

تم تعديل يناير 3, 2013 بواسطه أبا عمر

[منتصر الانسي]

تفضل اخي المثال المرفق

ويمكنك من خلاله البحث عن عدد تكرار حرف او سلسلة نصية ضمن نص

تحياتي,,,

عدد الاحرف ضمن نص.rar

[أبا عمر]

مشكور أخي الحبيب منتصر هذا ما أريده فأحسن ربي اليك

[عبدالله المجرب]

ما شاء الله

سلمت يمينك ابا ناصر على هذا الابداع

[ابوخليل]

تحفة بديعة

لذا لن ندعها تمر هكذا

نريد من استاذنا القدير تفضلا وكرما وكما اعتدنا منه شرحا مبسطا أمام هذه الاسطر

Private Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String) As Integer

Dim vSearchLine As String, found As Integer


found = InStr(SearchLine, SearchFor)

vSearchLine = SearchLine

If found <> 0 Then

sReplace = 1

vSearchLine = ""

If found > 1 Then vSearchLine = Left(SearchLine, found - 1)

vSearchLine = vSearchLine + ReplaceWith

If found + Len(SearchFor) - 1 < Len(SearchLine) Then _

vSearchLine = vSearchLine + Right$(SearchLine, Len(SearchLine) - _

found - Len(SearchFor) + 1)

End If


found = InStr(vSearchLine, SearchFor)

MyString = vSearchLine


Do While found <> 0

sReplace = sReplace + 1

vSearchLine = Left(vSearchLine, found - 1)

vSearchLine = vSearchLine + ReplaceWith

vSearchLine = vSearchLine + Right$(MyString, Len(MyString) - _

found - Len(SearchFor) + 1)

found = InStr(vSearchLine, SearchFor)

Loop


End Function

تم تعديل يناير 6, 2013 بواسطه أبـوخليل
استبدال الوحدة النمطية الصحيحة

[أبا عمر]

أضم صوتي لصوت أستاذي أبي خليل "

نريد من استاذنا القدير تفضلا وكرما وكما اعتدنا منه شرحا مبسطا أمام هذه الاسطر "

[رمهان]

مررت هنا بالصدفة

فحبيت اشارك بفكرة للفائدة ان شاء الله

يمكن عمل التعبير التالي 

=Len([mytext])-Len(Replace([mytext],"a",""))

على اساس ان الحقل اسمه mytext  والحرف a  ويمكن استبداله باسم حقل متغير