Кода -копия выглядит следующим образом:
'==================================================================
'Описание функции: Удалить теги HTML с регулярностью
'Нельзя сохранить и т. Д., И определяемый пользователем <и>
'==================================================================
FunctionRemovehtmltag (fstring)
Димре
Setre = newRegexp
re.ignorecase = true
re.pattern = "<(. [^>]*)>"
fstring = re.replace (fstring, "")
Setre = ничего
Удалить htmltag = fstring
Конечная функция
'==================================================================
'Описание функции: удалить теги HTML
'Нельзя сохранить и т. Д., И определяемый пользователем <и>
'==================================================================
FunctionRemove_html (str)
Dimilen1, ilen2
Dowhileinstr (1, str, "<", 1)> 0
ilen1 = instr (1, str, "<", 1)
ilen2 = instr (1, str, ">", 1)
Str = left (str, ilen1-1) и mid (str, ilen2+1)
Петля
Remove_html = str
Конечная функция
'==================================================================
'Описание функции: удалить теги HTML
'Удаление пользовательских маркеров может быть немного медленным
'==================================================================
FunctionRemovehtml (strtext)
DimTagList
Taglist = ";!-;
"Bgsound; big; blockquote; body; br; button; Подпись; Center; cite; code;" & _
"Col; colgroup; Comment; dd; del; dfn; dir; div; dl; dt; em; inced; fieldset;" & _
"Font; form; Frame; Frameset; Head; H1; H2; H3; H4; H5; H6; Hr; Html; I; iframe; img;" & _
"Input; ins; isIndex; kbd; label; layer; lagend; li; link; listing; map; marquee;" & _
"Меню; Meta; nobr; noframes; noscript; object; ol; option; p; param; plaintex