لقد طلب مني العديد من الأشخاص الحصول على هذا الرمز، وهو في الواقع رمز بسيط للغاية. يمكنك أخذه وتغييره إلى وظيفة تستدعيها بنفسك.
خافت strA، strB، isOK
strA = test,you,fuck,money'محتوى الكلمات الرئيسية الذي يحتاج إلى تصفيته
strB = محتوى fasfaefwTestfajkewhfwiTuckjfksajfheyou الذي سيتم التحقق منه
يحدد isOK = False ما إذا كان المحتوى المطلوب تصفيته متضمنًا أم لا. إذا تم إرجاع True، فهذا يعني أنه تم تضمينه، ويعني False أنه غير مضمن.
dimRegExp
اضبط RegExp = RegExp الجديد
RegExp.IgnoreCase =False
RegExp.Global=صحيح
ديمي، ج
ي = ubound(سبليت(strA،،))
لأني = 0 إلى ي
RegExp.Pattern=(&split(strA,,)(i)&)
إذا (RegExp.Test(strB))ثم
isOK=صحيح
الخروج ل
نهاية إذا
التالي
تعيين RegExp = لا شيء
الاستجابة.الكتابة (على ما يرام)