HTMLタグをフィルタリングして処理できますが、タグを処理しないパラメータを保持することもできます。
関数strip_tags(strHTML, allowedTags)
dim objRegExp、strOutput
set objRegExp = 新しい正規表現
strOutput = strHTML
allowedTags = , & lcase(replace(allowedTags, , )) & ,
objRegExp.IgnoreCase = true
objRegExp.Global = true
objRegExp.MultiLine = true
objRegExp.Pattern = <(.|/n)+?>
マッチを設定 = objRegExp.execute(strHTML)
objRegExp.Pattern = <(/?)(/w+)[^>]*>
試合の各試合ごとに
tagName = objRegExp.Replace(match.value, $2)
if instr(allowedTags, , & lcase(tagName) & ,) = 0 then
strOutput = replace(strOutput, match.value, )
終了する場合
次
ストリップタグ = str出力
objRegExp = 何も設定しない
終了関数