quarta-feira, 1 de agosto de 2001

Retirando tags HTML de uma string

'  Função que retorna uma string sem as TAGS HTML passada como parametro


Function LimpaHTML(matriz)
Do While True
   ini     = InStr(1,matriz,"<")
   If ini  = 0 Then Exit Do
   fim     = InStr(ini,matriz,">")
   parcial = Mid(matriz,ini,fim-ini+1)
   matriz  = Replace(matriz,parcial,"")
Loop
LimpaHTML  = matriz
End Function


' Ex. Response.Write LimpaHTML("<B>Exemplo</B>") Retornará somente Exemplo. Teste com HTMLEncode.



Esta matéria foi postada originalmente no ASP4Developers por Adriano Dias (site), que na época era "Gerente de Informática que odeia terno e gravata e que gosta mesmo é de análise e programação. Linuxeiro sem ser radical e ASPeiro por prazer.". Hoje, vai saber...

3 comentários:

Anônimo disse...

[Enviado originalmente em 12/abr/2002 12:03:03]:

function limpaHTML(texto){
return texto.replace(/<[^>]*>/g,"")}

Anônimo disse...

[Enviado originalmente em 12/abr/2002 12:04:12]:

function limpaHTML(texto){return texto.replace(/<[^>]*>/g,"")}

Anônimo disse...

[Enviado originalmente em 12/abr/2002 12:04:48]:

Tive que postar a segunda porque há algum problema com as quebras de linha nessa página...