سليم حاصبيا قام بنشر يناير 23, 2015 مشاركة قام بنشر يناير 23, 2015 السلام عليكم اخواتي في المنتدى كود مقتبس عن احد المواقع الاجنبية لاستخراج الحروف و الارقام من النصوص ارجو ان ينال اعجابكم حروف و أرقام.rar 3 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 23, 2015 مشاركة قام بنشر يناير 23, 2015 روعة أخي الحبيب سليم لا حرمنا الله منك .. وجزاك الله خير الجزاء يوجد بمكتبة الصررح دالة تقوم بعمل الدالتين (يعني 2 * 1 زي برت بلس) Function AlphaNum(txt As String, Optional numOnly As Boolean = True) As String With CreateObject("VBScript.RegExp") .Pattern = IIf(numOnly = True, "\D+", "-?\d+(\.\d+)?") .Global = True AlphaNum = .Replace(txt, "") End With End Function وهذا ملف مرفق به تطبيق الدالة جانباً إلى جنب مع دالتيك الرائعتين حروف و أرقام.rar 3 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يناير 23, 2015 الكاتب مشاركة قام بنشر يناير 23, 2015 كود جميل اخي الحبيب ياسر مع اني لم افهم منه الا كلمة end function و بعض الكلمات مثل with رابط هذا التعليق شارك More sharing options...
ابو تراب قام بنشر يناير 23, 2015 مشاركة قام بنشر يناير 23, 2015 ماشاء الله لا قوة الا بالله ...اكواد جميلة من الاستاذ سليم و الاستاذ ياسر هذه اضافة عن طريق Like بدون استخدام محرك Regular Expression ارجوا ان تنال اعجايكم Function AlphaNum(txt As String, Optional numOnly As Boolean = True) As String Dim i As Long Dim Pattern As String If numOnly Then Pattern = "[0-9]" Else Pattern = "[!0-9]" End If For i = 1 To Len(txt) If Mid(txt, i, 1) Like Pattern Then AlphaNum = AlphaNum & Mid(txt, i, 1) Next i End Function 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يناير 23, 2015 مشاركة قام بنشر يناير 23, 2015 إضافة رائعة أخي الغالي أبو تراب تسلم الأيادي يا غالي 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان