این کار اشکالی نداره، اما یک کار اضافی هست.
بحث عبارات باقاعده که مفصله ولی برای مثال همین khobi و khoooooooobi رو توضیح میدم.
بعد از اینکه کتابخونه مذکور رو اضافه کردید، کد زیر رو بنویسید:
Dim objRegExp As RegExp
Dim collMatches As MatchCollection
Set objRegExp = New RegExp
objRegExp.Pattern = "kho*bi"
Set collMatches = objRegExp.Execute("khoooooooooooooobi")
MsgBox collMatches(0)
به همین سادگی به همین خوشمزگی!
Pattern ما اینجا kho*bi هست. علامت ستاره (*) یکی از کاراکترهای ویژه هست به معنی تکرار. یعنی کاراکتر قبلیش (حرف o) در صورت تکرار پذیرفته است.
رشته موردنظرتون رو برای تطبیق باید بدید به متود Execute. خروجیش روی یک مجموعه Set میشه که برای دسترسی به عناصر اون مجموعه باید از For Each استفاده کنید. اما چون اینجا یک تطبیق بیشتر نداریم، نیازی به For Each نیست و مستقیم Index شماره 0 رو نمایش میدیم.
به طور پیشفرض به حروف کوچک و بزرگ حساس هست. برای Insensitive کردن باید خاصیت IgnoreCase رو True کنید:
objRegExp.IgnoreCase = True
موفق باشید/
نوشته شده توسط xxxxx_xxxxx
پاسخ با نقل قول
