أبا عمر قام بنشر يناير 3, 2013 مشاركة قام بنشر يناير 3, 2013 (معدل) السلام عليكم ورحمة الله وبركاته وبعد إخواني الأعزاء كيف حالكم لعلكم بخير سؤالي هو هل من كود لحساب عدد مرات إدخال حرف معين في حقل نصي ؟ مثال لو أدخلت في مربع نص مثلا الكلمة التالية " ععععع " فهل من كود لحساب عدد مرات إدخال حرف العين ؟ تم تعديل يناير 3, 2013 بواسطه أبا عمر رابط هذا التعليق شارك More sharing options...
منتصر الانسي قام بنشر يناير 3, 2013 مشاركة قام بنشر يناير 3, 2013 تفضل اخي المثال المرفق ويمكنك من خلاله البحث عن عدد تكرار حرف او سلسلة نصية ضمن نص تحياتي,,, عدد الاحرف ضمن نص.rar 1 رابط هذا التعليق شارك More sharing options...
أبا عمر قام بنشر يناير 4, 2013 الكاتب مشاركة قام بنشر يناير 4, 2013 مشكور أخي الحبيب منتصر هذا ما أريده فأحسن ربي اليك رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر يناير 4, 2013 مشاركة قام بنشر يناير 4, 2013 ما شاء الله سلمت يمينك ابا ناصر على هذا الابداع رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 4, 2013 مشاركة قام بنشر يناير 4, 2013 (معدل) تحفة بديعة لذا لن ندعها تمر هكذا نريد من استاذنا القدير تفضلا وكرما وكما اعتدنا منه شرحا مبسطا أمام هذه الاسطر 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 بواسطه أبـوخليل استبدال الوحدة النمطية الصحيحة رابط هذا التعليق شارك More sharing options...
أبا عمر قام بنشر يناير 4, 2013 الكاتب مشاركة قام بنشر يناير 4, 2013 أضم صوتي لصوت أستاذي أبي خليل " نريد من استاذنا القدير تفضلا وكرما وكما اعتدنا منه شرحا مبسطا أمام هذه الاسطر " رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر سبتمبر 30, 2016 مشاركة قام بنشر سبتمبر 30, 2016 مررت هنا بالصدفة فحبيت اشارك بفكرة للفائدة ان شاء الله يمكن عمل التعبير التالي =Len([mytext])-Len(Replace([mytext],"a","")) على اساس ان الحقل اسمه mytext والحرف a ويمكن استبداله باسم حقل متغير رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان