Tirar tags

[augustoclaro 2]

Olá pessoal, eu fiz este código que tira as tags de textos, ele ainda tem falhas, tira todas as tags mais as vezez tira coisas que não deveriam ser tiradas (não o texto, apenas marcadores < e >). Precisa ainda de ajustes mas vou por aqui para vocês.

 

 

function TiraTags(str)
temp = str
sair = false
do until sair = true
s = instr(temp,"<")
s2 = instr(2,temp,"<")
if s2 = s then
s2 = -2
end if
f = instr(temp,">")
if f < s2 or s2 = -2 and s <> 0 or f <> 0 then
temp = replace(temp,mid(temp,s,f),"")
else
sair = true
end if
loop
str = temp
TiraTags = str
end function

Para usar:

 

<%
str = "<i><b><u>Texto que deveria aparecer em itálico, negrito e sublinhado, mas a função eliminará as tags.</u></b></i>"
str = TiraTags(str)
response.write str
%>

É isso aí!

 

Espero ter ajudado!

[hargon 64]

Muito bom Augusto.

 

Sempre que tiver melhorias, poste que alteraremos para você.

[xanburzum 169]

um exemplo, tb

 

<%

Function RemoveTags(ByVal strHTML)
	Dim objER
	Dim strTexto

	'Configurando o objeto de Expressão Regular
	Set objER			= New RegExp 
	objER.IgnoreCase	= True
	objER.Global		= True
	objER.Pattern		= "<[^>]*>"
	
	'Substituindo as tags encontradas pela expressão
	strTexto			= strHTML
	strTexto			= objER.Replace(strTexto, "")
	
	Set objER			= Nothing

	'Retornando a função
	RemoveTags = strTexto
End Function

Para usar a função

Dim txttags
txttags = "<font face='verdana' size='2'>Exemplo</font> para retirar <b>TAGS</b> <font color='blue'>HTML</font><br><font face='arial' size='1'><br> <i> XXXX</i></font><br>"
'Texto com TAG
Response.Write txttags
'Texto sem TAG
Response.Write RemoveTags(txttags)
%>

[augustoclaro 2]

Que legal! Alguém podia postar um tutorial de Regular Expression? Não entendo muito bem isso!

[hargon 64]

O melhor na minha opinião:

http://guia-er.sourceforge.net/

[Ted k' 126]

bom link hargon, tenho até esse livro :)