Muitas pessoas me pediram esse trecho de código. Na verdade, é um código muito simples. Aqui está o código. Você mesmo pode pegá-lo e transformá-lo em uma chamada de função.
dim strA,strB,está OK
strA = teste,você,porra,dinheiro'Conteúdo da palavra-chave que precisa ser filtrado
strB = fasfaefwTestfajkewhfwiTuckjfksajfheyou' conteúdo a ser verificado
isOK = False' determina se o conteúdo a ser filtrado está incluído. Se True for retornado, significa que está incluído e False significa que não.
dimRegExp
definir RegExp = novo RegExp
RegExp.IgnoreCase =Falso
RegExp.Global = Verdadeiro
dimi,j
j = ubound(dividir(strA,,))
para i = 0 a j
RegExp.Pattern=(&split(strA,,)(i)&)
se(RegExp.Test(strB))então
está OK = Verdadeiro
saída para
terminar se
próximo
definir RegExp=Nada
resposta.write(está OK)