Heute wird der Herausgeber einen einfachen Filter -Anzeigencode mit Ihnen weitergeben. Einige Codes sind nicht sehr verständlich, und viele von ihnen leihen sich von anderen online aus.
Viele Leute fragten mich nach dieser Arbeit, aber es ist tatsächlich ein sehr einfacher Code. Das Folgende ist, ändern Sie es einfach in eine Funktion, die Sie selbst rufen.
Dim Strab, Strb, Isok
stra = "testen, du, verdammt, Geld" 'Keyword -Inhalt, der gefiltert werden muss
strb = "fasfaefwwTestfajkewhfwituckjfkSajfheyou" Inhalte, die überprüft werden sollen
ISOK = False 'Bestimmen Sie einfach, ob der zu filterne Inhalt enthalten ist. Wenn True zurückgegeben wird, ist es enthalten. Falsch bedeutet, dass es keine gibt
Dim Regexp
Setzen Sie regexp = new regexp
Regexp.ignoreCase = false
Regexp.global = true
Dim i, j
J = Ubund (split (stra, ","))
für i = 0 bis j
Regexp.pattern = "(" & split (stra, ",") (i) & ")"
if (regexp.test (strb)) dann
isok = true
beenden für
Ende wenn
nächste
REGEXP = nichts setzen
Antwort.Write (ISOK)
Das obige ist eine kurze Einführung in die Filterungscodes. Ich hoffe, es kann es mögen. Weitere Inhalte finden Sie weiterhin der Website des Wuxin Technology Channel!