コードコピーは次のとおりです。
'=======================================================
'関数の説明：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;"＆_