コードコピーは次のとおりです。
'=======================================================
'関数の説明:HTMLタグを削除して規則的に削除します
'保持することはできません。など、ユーザー定義<and>
'=======================================================
functionRemovehtmltag(fstring)
薄暗い
setre = newRegexp
re.ignorecase = true
re.pattern = "<(。[^>]*)>"
fstring = re.replace(fstring、 "")
setre =何もない
removehtmltag = fstring
エンド機能
'=======================================================
'関数の説明:HTMLタグを削除します
'保持することはできません。など、ユーザー定義<and>
'=======================================================
functionRemove_html(str)
dimilen1、ilen2
dowhileinstr(1、str、 "<"、1)> 0
ilen1 = strust(1、str、 "<"、1)
ilen2 = strunt(1、str、 ">"、1)
str = left(str、ilen1-1)&mid(str、ilen2+1)
ループ
remove_html = str
エンド機能
'=======================================================
'関数の説明:HTMLタグを削除します
「カスタムマーカーの削除は少し遅い場合があります
'=======================================================
functionRemovehtml(strtext)
dimtaglist
タグリスト= ";! - ;!doctype; a; incronymy; address; applet; area; b; base; basefont;"&_
「bgsound; big; blockquote; body; br; button; capture; center; cite; code; "&_
"col; colgroup; comment; dd; del; dfn; div; dl; dt; em; embed; fieldset;"&_
"font; form; frame; frameset; head; h1; h2; h3; h4; h5; h6; hr; html; i; iframe; img;"&_
「入力; ins; isindex; kbd; label; lager; lagend; like; link; listing; map; marquee; "&_
"メニュー;メタ; nobr; noframes; noscript; object; ol; option; p; param; plantext;"&_