استخراج الحروف و الارقام من النص

[سليم حاصبيا]

السلام عليكم

اخواتي في المنتدى

كود مقتبس عن احد المواقع الاجنبية لاستخراج الحروف و الارقام من النصوص

ارجو ان ينال اعجابكم

حروف و أرقام.rar

[ياسر خليل أبو البراء]

روعة أخي الحبيب سليم

لا حرمنا الله منك .. وجزاك الله خير الجزاء

يوجد بمكتبة الصررح دالة تقوم بعمل الدالتين (يعني 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

[سليم حاصبيا]

كود جميل اخي الحبيب ياسر

مع اني لم افهم منه الا كلمة end function  و بعض الكلمات مثل with 

[ابو تراب]

ماشاء الله لا قوة الا بالله ...اكواد جميلة من الاستاذ سليم و الاستاذ ياسر

 

هذه اضافة عن طريق 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

 

[ياسر خليل أبو البراء]

إضافة رائعة أخي الغالي أبو تراب

تسلم الأيادي يا غالي