اريد طريقة استخراج عدد من خلال نص

لدى طريقة رياضية ولكن ربما يوجد ما هو أسهل

تقوم بوضع حلقة تمر على كل محرف وتتحق من أن هذا المحرف حرف أم رقم

' إضافة مكتبة Microsoft VBScript Regular Expressions

' لمعلومات أكثر عن المكتبة ابحث عن التحقق من المدخلات في المنتدى

Dim RegExp As New RegExp


RegExp.Pattern = "^[0-9]$"   
Dim text, num As String
text = "df87/df'gk-4u80"
For i = 1 To Len(text)
If RegExp.test(Mid(text, i, 1)) = True Then num = num + Mid(text, i, 1)
Next
MsgBox num

أرجو أن أكون قد أفدتك

شكرا اخ خالد لكن مامعنى RegExp?

بسم الله الرحمن الرحيم

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

يمكن افادتك بما يلي :

مثلا عندي مربع نص يحتوي على هذا الكلمه four dcf4

هنا لاستخراج بعض الرموز من هذه الكلمه من خلال الداله التاليه وهي تدعى Mid

مثلا : نريد استخراج الاربعه الحروف الاولى من هذه الكلمه

اضف مربع نص آخر وليكن اسمه text2 وزر وقم بكتابة الكود التالي في الزر

Me.Text1 = Mid(Me.Text2, 1, 3)

حيث ان :

text1 وهو مربع النص المحتوي على الكلمه السابقه

text2 وهو مربع النص الثاني المراد وضع القيمه المستخرجه فيه

الرقم 1 اي الموقع الذي يبدأ من عنده العرض اي من عند حرف f

الرقم 3 اي ان عدد الرموز المسموح بعرضها وهي four

ملاحظه : استخراج الرموز دائما من جهة اليسار

المسافه بين الحروف تعتبر كرمز وكذلك الفاصله

اشكرك اخي العالم على الاجابة

اخي العزيز هذه دالة موجودة في المكتبة اللي ذكرتها في الأعلي تقوم بالتحقق من النص المسند لها حسب الشرط [0-9] إذا اردت معلومات اكثر ابحث عنها في المنتدى فانا حصلت عليها من هذا المنتدى

وشكرا

Function GetNumper(FromText As String, Numper As Double) As Integer

'FromText  النص الذى يتحوى الرقم
'Numper الرقم المراد البحث عنه
'GetNumper  ترتيب الرقم فى النص

Dim T As Integer
    For T = 1 To Len(FromText)
        If Val(Right(FromText, T)) = Numper Then GetNumper = Len(FromText) - T + 1: Exit Function
    Next T

End Function

انا افضل الحل الاخير