Когда мы пишем HTML -код, нам иногда нужно удалить все теги. Трудно удалить теги один за другим. Так есть ли быстрый и удобный способ? Давайте посмотрим, как удалить все теги в HTML -коде.
Удалить все теги в HTML -коде
Кода -копия выглядит следующим образом:<%
'*********************************
'Function: removehtml_a (strtext)
'Аргументы: strtext, строка для обработки
Автор: Аликси
Дата: 2007/7/12
'Описание: удалить все теги в HTML -коде
Пример: <%= removehtml_a ("<b> Добро пожаловать в Alixixi </b>")%>
'*********************************
Function removehtml_a (strtext)
Dim NPOS1
Dim NPOS2
npos1 = instr (strtext, "<")
Делать, пока NPOS1> 0
npos2 = instr (npos1+1, strtext, ">")
Если NPOS2> 0, тогда
strtext = left (strtext, npos1 - 1) и mid (strtext, npos2 + 1)
Еще
Выход DO
Конец, если
npos1 = instr (strtext, "<")
Петля
Удалить html_a = strtext
Конечная функция
%>
Удалить все теги в HTML -коде
Кода -копия выглядит следующим образом:<%
'*********************************
'Function: removehtml_b (strtext)
'Аргументы: strtext, строка для обработки
Автор: Аликси
Дата: 2007/7/12
'Описание: удалить все теги в HTML -коде
Пример: <%= removehtml_b ("<b> Добро пожаловать в alixixi </b>")%>
'*********************************
Function removehtml_b (strtext)
Dim Regex
Set regex = new Regexp
Regex.pattern = "<[^>]*>"
Regex.global = true
Removehtml_b = regex.replace (strtext, "")
Конечная функция
%>
Удалить все теги в HTML -коде
Кода -копия выглядит следующим образом:<%
'*********************************
'Function: removehtml_c (strtext)
'Аргументы: strtext, строка для обработки
Автор: Аликси
Дата: 2007/7/12
'Описание: удалить все теги в HTML -коде
Пример: <%= removehtml_c ("<b> Добро пожаловать в Alixixi </b>")%>
'*********************************
Function removehtml_c (strtext)
Dim Taglist
Taglist = ";!-; & _
"Bgsound; Big; blockquote; body; br; button; Подпись; Center; cite; code;" & _
"Col; colgroup; Комментарий; 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; Option; p; param; plaintext;" & _
"Pre; q; s; samp; script; select; small; span; Strike; strong; стиль; sub; sup;" & _
"Таблица; tbody; td; textarea; tfoot; th; thead; title; tr; tt; u; ul; var; wbr; xmp;"
Const blocktaglist = "; applet; inced; frameset; head; noframes; noscript; object; script; style;"
Dim NPOS1
Dim NPOS2
Dim NPOS3
Dim Strresult
Dim Strtagname
Dim bremove
Dim Bsearchforblock
npos1 = instr (strtext, "<")
Делать, пока npos1> 0
npos2 = instr (npos1 + 1, strtext, ">")
Если npos2> 0, то
strtagname = mid (strtext, npos1 + 1, npos2 - npos1 - 1)
strtagname = reply (reply (strtagname, vbcr, ""), vblf, "")
npos3 = instr (strtagname, "")
Если npos3> 0, то
strtagname = left (strtagname, npos3 - 1)
Конец, если
Если осталось (strtagname, 1) = "/" Затем
strtagname = mid (strtagname, 2)
bsearchforblock = false
Еще
bsearchforblock = true
Конец, если
Если instr (1, taglist, ";" & strtagname & ";", vbtextcompare)> 0 тогда
bremove = true
Если bsearchforblock, то
Если instr (1, blocktaglist, ";" & strtagname & ";", vbtextcompare)> 0 тогда
npos2 = len (strtext)
npos3 = instr (npos1 + 1, strtext, "</" & strtagname, vbtextcompare)
Если npos3> 0, то
npos3 = instr (npos3 + 1, strtext, ">")
Конец, если
Если npos3> 0, то
npos2 = npos3
Конец, если
Конец, если
Конец, если
Еще
bremove = false
Конец, если
Если Бремв, тогда
strresult = strresult & left (strtext, npos1 - 1)
strtext = mid (strtext, npos2 + 1)
Еще
strresult = strresult & left (strtext, npos1)
strtext = mid (strtext, npos1 + 1)
Конец, если
Еще
strresult = strresult & strtext
strtext = ""
Конец, если
npos1 = instr (strtext, "<")
Петля
strresult = strresult & strtext
Удалить html_c = strresult
Конечная функция
%>
Это все о удалении всех тегов в HTML -коде. Я считаю, что у всех есть определенное понимание. Если вы хотите узнать больше технической информации, пожалуйста, продолжайте обращать внимание на неправильный новый канал технологии!