Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

makimaki

strip_tags

Por , em ASP Clássico

Recommended Posts

makimaki    0

makimaki
Postado

Então galera, meu problema é:

 

Tenho um sistema de noticias, mas coloquei o nicedit nele, agora sempre que eu copio e colo um texto do word pro text-area ele herda tag font, p e até divs, tentei usar replace mas não consegui, pois até dentro de tags como p existem styles css.

 

Em PHP sei que usam o strip_tags para fazer isso, com ele é possível excluir uma tag especifica da string e manter as outras, por exemplo sumir com as tags <font>, em ASP existe algo parecido ?

 

Alguém já passou por isso e pode me ajudar ?

 

vlw

 

EDIT#

Tentei deixar o texto mais objetivo.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Erick de Camargo    0

Erick de Camargo
Postado

Este forum eh de ASP, portanto sou meio leigo de PHP....

 

O que faz o strip_tags ???

 

Se for o que eu estou pensando tenta isso:

 

Set RETag = New RegExp
RETag.Pattern = "<[^>]*>"
RETag.IgnoreCase = True
RETag.Global = True

textOriginal = request.form("name_textarea")
textTratado = RETag.Replace(textOriginal,"")

response.write textTratado

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

sua dívida é em ASP ou php, se for em php eu vou redirecionar para o forum adequado...

Compartilhar este post

Link para o post
Compartilhar em outros sites

makimaki    0

makimaki
Postado

Opa, obrigado pelas respostas, vou testar o script do Erick,

 

A duvida é em ASP sim, só quiz exemplificar como eu vi que era feito em PHP,

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

dá uma oilhada no lab. de script que existe uma funçao para remover caracters HTML

 

e verifique esta funcao

 

exemplo:

<%
dim a

a = a & "<HTML>" & vbCrLf
a = a & "<HEAD>" & vbCrLf
a = a & "<TITLE>Xanburzum</TITLE>" & vbCrLf
a = a & "</HEAD>" & vbCrLf
a = a & "<BODY>" & vbCrLf
a = a & "forum de programaçao, ASPower!!!" & vbCrLf
a = a & "<A HREF=""./xanburzum.asp"">link</A>" & vbCrLf
a = a & "</BODY>" & vbCrLf
a = a & "</HTML>" & vbCrLf

response.write StripHTML(a)

 ' returns:
 ' "Xanburzum forum de programaçao, ASPower!!!link"
%>

 

code:

 

<%
Private Function StripHTML(byVal string)
	Dim lngStart, lngEnd, strHTML
	string = Replace( string, vbTab, "" )
	string = Replace( string, vbCrLf, "" )
	string = Trim( string )
	do
		lngStart = Instr(string, "<")
		lngEnd   = InStr(string, ">")
		strHTML  = Mid( string, lngStart, _
			   lngEnd - lngStart + 1)
		string   = Trim(  Replace( string, strHTML, "" )  )
	loop until Not Instr(string, "<") _
		AND Not Instr(string, ">")
	If Instr( string, "<" ) Then _
		string = StripHTML( Trim( string ) )
	StripHTML = Trim( string )
End Function
%>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito