Es ist möglich, HTML-Tags zu filtern und zu verarbeiten, aber auch einen Parameter beizubehalten, der keine Tags verarbeitet
Funktion strip_tags(strHTML, erlaubteTags)
dim objRegExp, strOutput
set objRegExp = neuer regulärer Ausdruck
strOutput = strHTML
erlaubteTags = , & lcase(replace(allowedTags, , )) & ,
objRegExp.IgnoreCase = true
objRegExp.Global = true
objRegExp.MultiLine = true
objRegExp.Pattern = <(.|/n)+?>
set match = objRegExp.execute(strHTML)
objRegExp.Pattern = <(/?)(/w+)[^>]*>
für jedes Spiel in Spielen
tagName = objRegExp.Replace(match.value, $2)
wenn instr(allowedTags, , & lcase(tagName) & ,) = 0 dann
strOutput = replace(strOutput, match.value, )
Ende wenn
nächste
strip_tags = strOutput
set objRegExp = nichts
Endfunktion