Mucha gente me ha pedido este código. En realidad, es un código muy simple. Aquí está el código. Puede tomarlo y convertirlo en una llamada de función.
tenue strA, strB, isOK
strA = prueba,tú,joder,dinero'Contenido de palabras clave que deben filtrarse
strB = fasfaefwTestfajkewhfwiTuckjfksajfheyou' contenido a comprobar
isOK = False' determina si el contenido a filtrar está incluido. Si se devuelve True, significa que está incluido y False significa que no.
tenueRegExp
establecer RegExp = nueva RegExp
RegExp.IgnoreCase =Falso
RegExp.Global=Verdadero
dimi,j
j = ubound(split(strA,,))
para i=0 a j
RegExp.Pattern=(&split(strA,,)(i)&)
si (RegExp.Test (strB)) entonces
está bien = verdadero
salida para
terminar si
próximo
establecer RegExp=Nada
respuesta.escribir(está bien)