多くの人がこのコードを求めてきましたが、これは非常に単純なコードです。これを自分で関数呼び出しに変更できます。
薄暗い strA、strB、isOK
strA = test,you,fuck,money'フィルタリングが必要なキーワードコンテンツ
strB = fasfaefwTestfajkewhfwiTuckjfksajfheyou' チェックする内容
isOK = False' は、フィルタリングするコンテンツが含まれるかどうかを決定します。True が返された場合は含まれていることを意味し、False は含まれていないことを意味します。
dimRegExp
set RegExp=新しい RegExp
RegExp.IgnoreCase =False
RegExp.Global=True
ディミ、j
j = ubound(split(strA,,))
i=0 ～ j の場合
RegExp.Pattern=(&split(strA,,)(i)&)
if(RegExp.Test(strB))then
isOK=真
のために出る
終了する場合
次
RegExp=何も設定しない
応答.書き込み(isOK)