Saat kita menulis kode HTML, kadang -kadang kita perlu menghapus semua tag. Sangat merepotkan untuk menghapus tag satu per satu. Jadi apakah ada cara yang cepat dan nyaman? Mari kita lihat cara menghapus semua tag dalam kode HTML.
Hapus semua tag dalam kode html
Salinan kode adalah sebagai berikut:<%
'***********************************
'Fungsi: lepas html_a (strtext)
'Argumen: strtext, string yang akan diproses
'Penulis: Alixi
'Tanggal: 2007/7/12
'Deskripsi: Hapus semua tag dalam kode HTML
'Contoh: <%= RemoveHTML_A ("<b> Selamat Datang di Alixixi </b>")%>
'***********************************
Fungsi lepas html_a (strtext)
Redup npos1
Redup npos2
npos1 = instr (strtext, "<")
Lakukan saat npos1> 0
npos2 = instr (npos1+1, strtext, ">")
Jika npos2> 0 lalu
strtext = kiri (strtext, npos1 - 1) & mid (strtext, npos2 + 1)
Kalau tidak
Keluar
Akhiri jika
npos1 = instr (strtext, "<")
Lingkaran
Hapushtml_a = strtext
Fungsi akhir
%>
Hapus semua tag dalam kode html
Salinan kode adalah sebagai berikut:<%
'***********************************
'Fungsi: lepas html_b (strtext)
'Argumen: strtext, string yang akan diproses
'Penulis: Alixi
'Tanggal: 2007/7/12
'Deskripsi: Hapus semua tag dalam kode HTML
'Contoh: <%= RemoveHTML_B ("<b> Selamat Datang di Alixixi </b>")%>
'***********************************
Fungsi lepas html_b (strtext)
Redup regex
Atur regex = regexp baru
Regex.pattern = "<[^>]*>"
Regex.global = true
Hapushtml_b = regex.replace (strtext, "")
Fungsi akhir
%>
Hapus semua tag dalam kode html
Salinan kode adalah sebagai berikut:<%
'***********************************
'Fungsi: lepas html_c (strtext)
'Argumen: strtext, string yang akan diproses
'Penulis: Alixi
'Tanggal: 2007/7/12
'Deskripsi: Hapus semua tag dalam kode HTML
'Contoh: <%= RemoveHTML_C ("<b> Selamat Datang di Alixixi </b>")%>
'***********************************
Fungsi lepas html_c (strtext)
Redup taglist
Taglist = ";!-;! Doctype; a; akronim; alamat; applet; area; b; base; basefont;" & _
"Bgsound; besar; blockquote; body; br; tombol; keterangan; tengah; mengutip kode;" & _
"Col; colgroup; komentar; dd; del; dfn; dir; div; dl; dt; em; embed; fieldset;" & _
"Font; bentuk; bingkai; frameset; kepala; 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;" & _
"Pra; q; s; Sampah; skrip; pilih; rentang kecil; strike; kuat; gaya; sub; sup;" & _
"Tabel; tbody; td; textarea; tfoot; th; thead; judul; tr; tt; u; ul; var; wbr; xmp;"
Const blocktaglist = "; applet; embed; frameset; head; noframes; noscript; objek; skrip; gaya;"
Redup npos1
Redup npos2
Redup npos3
Redup strresult
Redup strtagname
Redup bremove
Redup bsearchforblock
npos1 = instr (strtext, "<")
Lakukan saat npos1> 0
npos2 = instr (npos1 + 1, strtext, ">")
Jika npos2> 0 lalu
strtagname = mid (strtext, npos1 + 1, npos2 - npos1 - 1)
strtagname = ganti (ganti (strtagname, vbcr, ""), vblf, "")
npos3 = instr (strtagname, "")
Jika npos3> 0 lalu
strtagname = kiri (strtagname, npos3 - 1)
Akhiri jika
Jika dibiarkan (strtagname, 1) = "/" lalu
strtagname = mid (strtagname, 2)
bSearchForBlock = false
Kalau tidak
bSearchForBlock = true
Akhiri jika
If instr (1, taglist, ";" & strtagname & ";", vBtextCompare)> 0 lalu
bremove = true
Jika BSearchForBlock maka
If instr (1, blocktaglist, ";" & strtagname & ";", vBtextCompare)> 0 lalu
npos2 = len (strtext)
npos3 = instr (npos1 + 1, strtext, "</" & strtagname, vbtextCompare)
Jika npos3> 0 lalu
npos3 = instr (npos3 + 1, strtext, ">")
Akhiri jika
Jika npos3> 0 lalu
NPOS2 = NPOS3
Akhiri jika
Akhiri jika
Akhiri jika
Kalau tidak
bremove = false
Akhiri jika
Jika Bremove maka
Strresult = Strresult & Left (Strtext, NPOS1 - 1)
strtext = mid (strtext, npos2 + 1)
Kalau tidak
Strresult = Strresult & Left (Strtext, NPOS1)
strtext = mid (strtext, npos1 + 1)
Akhiri jika
Kalau tidak
Strresult = Strresult & Strtext
strtext = ""
Akhiri jika
npos1 = instr (strtext, "<")
Lingkaran
Strresult = Strresult & Strtext
HapusHTML_C = StrResult
Fungsi akhir
%>
Ini semua tentang menghapus semua tag dalam kode HTML. Saya percaya setiap orang memiliki pemahaman tertentu. Jika Anda ingin mengetahui lebih banyak informasi teknis, silakan terus perhatikan saluran teknologi baru yang salah!