Salinan kode adalah sebagai berikut:
'===========================================
'Fungsi Deskripsi: Hapus tag HTML dengan keteraturan
'Tidak bisa dipertahankan, dll., Dan yang ditentukan pengguna <wrip>
'===========================================
FunctionRemoveHtMltag (FString)
Dimre
Setre = newregexp
re.ignorecase = true
re.pattern = "<(. [^>]*)>"
fString = re.replace (fString, "")
Setre = tidak ada
HapusHtmltag = fString
Fungsi endfungsi
'===========================================
'Fungsi Deskripsi: Hapus tag HTML
'Tidak bisa dipertahankan, dll., Dan yang ditentukan pengguna <wrip>
'===========================================
FunctionRemove_html (str)
Dimilen1, ilen2
DowhileInstr (1, str, "<", 1)> 0
ilen1 = instr (1, str, "<", 1)
ilen2 = instr (1, str, ">", 1)
Str = kiri (str, ilen1-1) & mid (str, ilen2+1)
Lingkaran
Lepas_html = str
Fungsi endfungsi
'===========================================
'Fungsi Deskripsi: Hapus tag HTML
'Menghapus penanda khusus mungkin agak lambat
'===========================================
FunctionRemoveHTML (strtext)
DIMTAGLIST
Taglist = ";!-;! Doctype; a; akronim; alamat; applet; area; b; base; basefont;" & _
"Bgsound; besar; blockquote; body; br; tombol; caption; center; cite; code;" & _
"Col; colgroup; komentar; dd; del; dfn; dir; div; dl; dt; em; embed; fieldset;" & _
"Font; bentuk; bingkai; frameset; head; h1; h2; h3; h4; h5; h6; hr; html; i; iframe; img;" & _
"Input; INS; isIndex; kbd; label; layer; lagend; li; link; listing; peta; marquee;" & _
"Menu; meta; nobr; noframes; noscript; objek; ol; opsi; p; param; plaintext;" & _