Listar somente os 40 primeiros caracteres

[Carlos Moreira 0]

Olá pessoal estou usando este código para listar somente os 40 primeiros caracteres do campo descricao

 

<%=Replace(LEFT(RS("descricao"), 40) & "", vbLf, "<br>")%>

 

mas como eu uso o FCKEdit nesse campo ele nao esta pegando os acentos, pq sera?

 

Por exemplo a Palavra Marabú está ficando assim Marab&u

 

o que devo fazer?

[Ted k' 126]

use no HTML o

[url="http-~~-//december.com/html/4/element/meta.html"]<meta[/url] http-equiv="content-type" content="text/html; charset=iso-8859-1" />

 

ou

[url="http-~~-//december.com/html/4/element/meta.html"]<meta[/url] http-equiv="content-type" content="text/html; charset=UTD-8" />

[golbranco 0]

caso naum funcionar o q nosso amigo ted k' passou eu uso sempre essa função q eu mesmo kriei...

 

 

Function caracter(d)

 

'possibilidades

'ãÃáÁàÀâÂäÄ / éÉèÈêÊëË / íÍìÌïÏ / õÕóÓòÒôÔöÖ / úÚùÙûÛüÜ / çÇ

'a A

a1 = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(

eplace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(R

place(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Re

lace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(Rep

ace(Replace(Replace(Replace(Replace(Replace(Replace(Replace(d,"ã","ã"),"Ã","Ã"),"á","á"),"Á","Á"),"à","à"),"À","À"),"â","â"),"Â","Â"),"ä","ä"),"Ä","Ä"),"é","é"),"É","É"),"è","è"),"È","È"),"ê","ê"),"Ê","Ê"),"ë","ë"),"Ë","Ë"),"í","í"),"Í","Í"),"ì","ì"),"Ì","Ì"),"î","î"),"Î","Î"),"ï","ï"),"Ï","Ï"),"õ","õ"),"Õ","Õ"),"ó","ó"),"Ó","Ó"),"ò","ò"),"Ò","Ò"),"ô","ô"),"Ô","Ô"),"ö","ö"),"Ö","Ö"),"ú","ú"),"Ú","Ú"),"ù","ù"),"Ù","Ù"),"û","û"),"Û","Û"),"ü","ü"),"Ü","Ü"),"ç","ç"),"Ç","Ç"),"º","º"),"ª","ª")

 

caracter = a1

 

End Function

[Ted k' 126]

Meu Deus do céu quanto replace junto, hehehehhee

 

Amigo golbranco você poderia organizar mais, exemplo

 

ASP

Dim campo

 

campo = Replace(campo, "ã", "ã")

campo = Replace(campo, "Ã", "Ã")

 

Response.Write (campo)

 

Fica mais organizado do que colocar um replace dentro de outro!!!

[Carlos Moreira 0]

Certo Ted K

 

Como uso isso agora?

 

assim:

 

ASP

<%

Dim descricao

 

descricao = Replace(descricao, "ã", "ã")

descricao = Replace(descricao, "Ã", "Ã")

 

Response.Write (campo)

 

Replace(LEFT(RS("descricao"), 40) & "", vbLf, "<br>")

%>

[Ted k' 126]

Exatamente, só precisa colocar todas os caracteres possíveis e retirar o "Response.Write (campo)" e faça o replace nessas possibilidades

 

ãÃáÁàÀâÂäÄ / éÉèÈêÊëË / íÍìÌïÏ / õÕóÓòÒôÔöÖ / úÚùÙûÛüÜ / çÇ

[Carlos Moreira 0]

Ted k me perdoe a ignorancia mas como poderia montar?

[Ted k' 126]

pegue esses caracteres e faça um replace:

 

ãÃáÁàÀâÂäÄ / éÉèÈêÊëË / íÍìÌïÏ / õÕóÓòÒôÔöÖ / úÚùÙûÛüÜ / çÇ

cada um tem seu código basta descobrir qual é qual, exemplo:

ã = ã

então você faz isso

ASP

descricao = Replace(descricao, "ã", "ã")

 

e assim por diante, viu como ficou...