Многие люди просили меня предоставить этот фрагмент кода. На самом деле это очень простой код. Вы можете сами превратить его в вызов функции.
тусклый strA,strB,ISOK
strA = test,you,fuck,money. Содержимое ключевых слов, которое необходимо фильтровать.
strB = fasfaefwTestfajkewhfwiTuckjfksajfheyou' контент, который нужно проверить
isOK = False' определяет, включено ли фильтруемое содержимое. Если возвращается True, это означает, что оно включено, а False означает, что оно не включено.
димрегэксп
установить RegExp=новое RegExp
RegExp.IgnoreCase = Ложь
RegExp.Global=Истина
Дими, Джей
j = ubound(split(strA,,))
для я = от 0 до j
RegExp.Pattern=(&split(strA,,)(i)&)
если(RegExp.Test(strB))то
isOK=Истина
выход для
конец, если
следующий
установите RegExp=Ничего
ответ.запись(исОК)