المعادلات الثابتة لها استخدامات كثيرة جدا في الفجوال بييك و خاصة مع النصوص, فهي تستخدم لتفريق او تحديد ماتكتبه, و تقوم تنفيذ امر ما بناء عليه..
مثلا عليك كتابة ايميلك في خانة ما, و قام المستخدم بكتابة A@@hotmail.com فكيف ستعرف؟؟
لوضع Reguler Expressions في برنامجك اختر Refrences من قائمة Project, ثم اختر Microsoft VBScrip Reguler Expression ثم اضغط Ok..
الان جرب هذه الكود في زر امر بعد اضافة تكست:
Dim MyExp As RegExp Set MyExp = New RegExp Dim A, B MyExp.Pattern = "Bibo" Set B = MyExp.Execute(Text1.Text) For Each A In B MsgBox A Next
و الان شغل البرنمج و اضغط علي الزر, لن يحدث شيئ, و لكن اكتب في التكست Bibo و اضغط, ستجد ان رسالة قد ظهرت بالاسم, انها شبه باسوورد ولكن ما الجديد؟
جرب كتابه هذه الكود
Dim MyExp As RegExp Set MyExp = New RegExp Dim A, B MyExp.Pattern = "Bibo*" Set B = MyExp.Execute(Text1.Text) For Each A In B MsgBox A Next
كرر ما فعلت, سيستجيب البرنامج, ولكن اكتب Biboooo ستجد ان الرسالة تظهر ايضا..
فكما تري علامة * بعد الاسم تسمج بتكرير اخر حرف و يمكن تغيير مكانها..!
المعاملات الممكن استخدامها:
· * : لأمكانية تكرير الحرف الذي قبل هذه العلامة.
· ؟ : تسمح بكتابة الحرف الذي قبلها مرة واحدة او عدم كتابته.
· + : شبه العلامة *.
· المعاملان Min و Max:
يحددان العدد الادني و الاقصي لتكرير حرف ما, مثال:
MyExp.Pattern = "B{0,3}ibo"
و هكذا نسمح بتكرار حرف B 3 مرات.
· . : مثال: اكتب الامر هكذا:
myExp.Pattern = ".@hotmail.com"
اكتب في التكست لي حاجة @hotmail.com ستنجح العملية.
