[Resolvido] ckeditor

[notax 0]

Galera, mais uma dúvida... procurei na documentção do ckeditor e não encontrei nada... pelo google tb não... acho até que sou eu que não estou sabendo procurar direito...

 

O caso é o seguinte, comecei a usar o ckeditor em uma aplicação minha... ta tudo perfeito... mas tem uma parte que preciso colocar o resumo do testo, tipo, pegar os 200 primeiros caracteres e ao final colocar o leia mais... o problema não é fazer isso, o problema é que se os 200 primeiros carcteres interromperem o fechamento de uma tag qq pode detonar todo meu layout...

 

Como posso fazer para pegar apenas 200 caracteres se destruir a formatação toda?

 

Alguem sabe como?

[xanburzum 169]

existe um função tres pontinhos , que faz isso que você quer, abaixo o exemplo:

 

<%@ Language="VBScript" %>  
<%  
Public Function Pontos(VarTexto, Max) ' Recebemos os valores  
   If Int(Len(VarTexto)) > Max Then  
       Response.Write(Left(VarTexto, Max)&"...") ' Usamos a função "substring" para fazer os cortes  
   Else  
       Response.Write(VarTexto)  
   End If  
End Function  

Texto = "De acordo com o DigiTimes, além de um novo processador dual-core da linha Nano para netbooks, a VIA Technologies também está preparando um modelo quad-core que estará disponível até o final de 2011.O novo Nano dual-core, desenvolvido em parceria com a TSMC, terá clock de 2GHz, 2 MB de cache L2 e deve estar disponível ainda em 2010."  

Call Pontos(Texto, 200) ' Chamando a função e mostrando o resultado  
%>

[saloeric 1]

Nesse caso aconselhava você a colocar um outro campo sem editor de texto para se por o resumo, assim não tem problemas de formatação, ou então pega numa função que apague todo o html da frase e só depois é que dá o corte nos 200 caracteres.

[xanburzum 169]

existe uma função que coloquei no lab. de script que remove as tags HTML, pode te ajudar

 

<%
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
%>

[notax 0]

Valew pessoal! Resolvido!