パブリック関数DecodeFilter(html, フィルター)
html=LCase(html)
filter=split(filter,",")
For Each i In フィルター
case "script" 'すべてのクライアントスクリプトjavascipt、vbscript、jscript、js、vbs、event、...
Html = Exre ("(javascript | jscript | vbscript | vbs):", "#", html)
Html = exce ("& lt;/? スクリプト [^& gt;]*& gt;", "", html)
Html = Exray ("on (マウス | 終了 | エラー | クリック | キー)", "", html)
ケース "テーブル": 'テーブルを削除します & lt; td & gt;
Html = Exre ("& lt;/? テーブル [^& gt;]*& gt;", "", html)
Html = Exray ("& lt;/? TR [^& gt;]*& gt;", "", "", html)
Html = exce ("& lt;/? Td [^& gt;]*& gt;", "", "", html)
Html = exce ("& lt;/? TBODY [^& gt;]*& gt;", "", "", html)
Case "class" 'スタイルクラスを削除するには class = "
Html = exce ("(& lt; [^& gt;]+) クラス = [^|^& gt;]*([^& gt;]*& gt;)", "$ 1 $ 2", html )
Case "style" 'スタイルを削除 style = "
Html = Exre ("(& lt; [^& gt;]+) style =" [^""]*"" ([^& gt;]*& gt;) "," $ 1 $ 2 ", html )
Html = Exre ("(& lt; [^& gt;]+) style = '[^']*'([^& gt;]*& gt;)," $ 1 $ 2 ", html)
Case "img" 'スタイルを削除 style = "
Html = Exre ("& lt;/? Img [^& gt;]*& gt;", "", html)
ケース「XML」
Case "namespace" '' 名前空間を削除します & lt; o & gt;
Html = exce ("& lt;/? [A-z]+: [^& gt;]*& gt;", "", html)
Case "font" 'フォントを削除します & lt;/font & gt;
Html = Exre ("& lt;/? Span [^& gt;]*& gt;", "", html)
Case "マーキー" '字幕を削除 & lt;/マーキー & gt;
Html = exce ("& lt;/? マーキー [^& gt;]*& gt;", "", html)
Case "オブジェクト" 'オブジェクトを削除します & gt; & lt;/オブジェクト & gt;
Html = Exre ("& lt;/? Param [^& gt;]*& gt;", "", "", html)
'Html = exce ("" & lt;/? Embed [^& gt;]*& gt; "," ", html)
ケース「埋め込み」
Html = exce ("& lt;/? Embed [^& gt;]*& gt;", "", html)
ケース "div" ' オブジェクトを削除 & gt; & lt;/オブジェクト & gt;
Html = Exray ("& lt;/? DIV ([^& gt;])*& gt;", "$ 1", html)
Html = exce ("& lt;/? P ([^& gt;])*& gt;", "$ 1", html)
Case "オンライン" 'スタイルを削除 style = "
Html = Exre ("(& lt; [^& gt;]+) online =" "[^" "]*" "([^& gt;]*& gt;)", "$ 1 $ 2", html)
html = exeRE("(<[^>]+) onload='[^']*'([^>]*>)", "$1 $2", html)
Case "ONCLICK" ' 去除样式
html = exeRE("(<[^>]+) onclick=""[^""]*""([^>]*>)", "$1 $2", html)
html = exeRE("(<[^>]+) onclick='[^']*'([^>]*>)", "$1 $2", html)
Case "ONDBCLICK" '去除样式
html = exeRE("(<[^>]+) ondbclick=""[^""]*""([^>]*>)", "$1 $2", html)
html = exeRE("(<[^>]+) ondbclick='[^']*'([^>]*>)", "$1 $2", html)
終了選択
次へ
'html = 置換(html,"<テーブル","<")
'html = 置換(html,"