شارك رمز إعلان تصفية بسيط

اليوم ، سيشاركك المحرر معك رمز إعلان تصفية بسيط. بعض الرموز ليست مفهومة للغاية ، والكثير منها يستعرين من الآخرين عبر الإنترنت.

سألني الكثير من الناس عن هذا العمل ، لكنه في الواقع رمز بسيط للغاية. فيما يلي ، فقط قم بتغييره إلى وظيفة اتصل بنفسك.

Dim Stra ، strb ، isok

rast = "اختبار ، أنت ، اللعنة ، المال" محتوى الكلمات الرئيسية التي يجب ترشيحها

strb = "fasfaefwtestfajkewhfwituckjfksajfheyou" المحتوى الذي سيتم فحصه

isok = false 'فقط حدد ما إذا كان يتم تضمين المحتوى المراد ترشيحه. إذا تم إرجاع TRUE ، يتم تضمينه. كاذب يعني أنه لا

Dim regexp

تعيين regexp = جديد regexp

regexp.ignorecase = خطأ

regexp.global = صحيح

خافت أنا ، ي

J = Ubund (تقسيم (شترا "،")))

لأني = 0 إلى ي

regexp.pattern = "(" & split (rast ، "،") (i) & ")"

إذا (regexp.test (STRB)) ثم

ISOK = صحيح

الخروج ل

إنهاء إذا

التالي

تعيين regexp = لا شيء

استجابة. write (ISOK)

ما سبق هو مقدمة موجزة لتصفية رموز الإعلان. أتمنى أن يعجبك. لمزيد من المحتوى ، يرجى متابعة متابعة موقع الويب الخاص بقناة Wuxin Technology!