Beaucoup de gens m'ont demandé ce morceau de code. C'est en fait un code très simple. Vous pouvez le prendre et le transformer vous-même en appel de fonction.
faible strA,strB,isOK
strA = test,you,fuck,money'Contenu des mots clés qui doivent être filtrés
strB = fasfaefwTestfajkewhfwiTuckjfksajfheyou' contenu à vérifier
isOK = False' détermine si le contenu à filtrer est inclus. Si True est renvoyé, cela signifie qu'il est inclus et False signifie qu'il ne l'est pas.
dimRegExp
définir RegExp=nouvelle RegExp
RegExp.IgnoreCase =False
RegExp.Global=Vrai
dimi,j
j = ubound(split(strA,,))
pour i=0 à j
RegExp.Pattern=(&split(strA,,)(i)&)
si (RegExp.Test (strB)) alors
estOK=Vrai
sortie pour
finir si
suivant
définir RegExp = Rien
réponse.write(isOK)