استخدام كائن regexp:
regexptest (فارن ، سترينج)
Dimregex ، Match ، Matches 'يخلق المتغيرات.
SetRegex = NewRegexp 'يخلق تعبيرًا منتظمًا.
regex.pattern = وضع GARN'SET.
regex.ignoreCase = True 'تعيين ما إذا كان يجب أن يكون حساس الحالة.
regex.global = true 'يحدد توفر عالمي.
setMatches = regex.execute (strng) 'يقوم بالبحث.
foreachmatchinmatches 'اجتياز مطابقة المجموعات.
RETSTR = RETSTR & "MatchFoundAtposition"
Retstr = Retstr & Match.Firstindex & ". Matchis '"
Retstr = Retstr & Match. & "'." & vbcrlf
التالي
regexptest = retstr
نهاية
msgbox (regexptest ("IS." ، "IS1IS2IS3IS4")))
خصائص كائن regexp
◎ السمات العالمية
تقوم الممتلكات العالمية بتعيين أو إرجاع قيمة منطقية تشير إلى ما إذا كان النمط يتطابق مع كل أو أول واحد خلال سلسلة البحث بأكملها.
قواعد
object.global [= true | false]
معلمة الكائن هي دائمًا كائن regexp. إذا تم تطبيق البحث على السلسلة بأكملها ، فإن الخاصية العالمية لها قيمة صحيحة ، وإلا فإن قيمتها خاطئة. الإعداد الافتراضي صحيح.
استخدام السمات العالمية (قم بتغيير القيمة المخصصة للسمة العالمية ومراقبة تأثيرها):
regexptest (فارن ، سترينج)
Dimregex 'يخلق المتغير.
SetRegex = NewRegexp 'يخلق تعبيرًا قانونيًا.
regex.pattern = وضع GARN'SET.
regex.ignorecase = set 'set ما إذا كانت الحروف حساسة للحالة.
regex.global = true 'يعين الطبيعة العملية الكاملة.
regexptest = regex.execute (strng) 'يقوم بالبحث.
نهاية
msgbox (regexptest ("IS." ، "IS1IS2IS3IS4")))
◎ سمة الجهل
تحدد خاصية agnorecase أو تُرجع قيمة منطقية تشير إلى ما إذا كان البحث عن الوضع حساسًا للحالة.
قواعد
Object.InsoreCase [= true | false]
معلمة الكائن هي دائمًا كائن regexp. إذا كان البحث حساسًا للحالة ، فإن خاصية الجينوريكاس خاطئة ؛ وإلا فهذا صحيح. القيمة الافتراضية صحيحة.
استخدام سمة الجاهل (قم بتغيير القيمة المخصصة إلى سمة الجالين لمراقبة تأثيرها):
regexptest (فارن ، سترينج)
Dimregex 'يخلق المتغير.