Banyak orang menanyakan potongan kode ini kepada saya. Ini sebenarnya adalah kode yang sangat sederhana. Ini adalah kodenya.
redupkan strA,strB,tidak apa-apa
strA = test,you,fuck,money'Konten kata kunci yang perlu difilter
strB = fasfaefwTestfajkewhfwiTuckjfksajfheyou' konten yang akan diperiksa
isOK = False' menentukan apakah konten yang akan difilter disertakan. Jika True dikembalikan berarti disertakan, dan False berarti tidak.
redupRegExp
atur RegExp=RegExp baru
RegExp.IgnoreCase = Salah
RegExp.Global=Benar
dimi, j
j = ubound(split(strA,,))
untuk i=0 sampai j
RegExp.Pattern=(&split(strA,,)(i)&)
if(RegExp.Test(strB))lalu
tidak apa-apa=Benar
keluar untuk
berakhir jika
Berikutnya
atur RegExp=Tidak Ada
respon.tulis(isOK)