Ir para conteúdo

POWERED BY:

Arquivado

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

Eduardo Villa

[Resolvido] Escondendo texto no sistema de noticias

Recommended Posts

Salve comunidade IMasters...

 

Estou montando um sistema de noticia parecido com o da UOL e pretendo fazer com que apareça um pequeno trecho da noticias, coisa de 200 a 250 caracteres... mas ñ estou conseguindo "esconder" o restante do texto.

 

Aguardo Resposta...

Desde já agradeço

Dudesigner

Compartilhar este post


Link para o post
Compartilhar em outros sites

é so a usar funções de manipulçaõ de string

 

como o LEFT por exemplo

 

Noticia = LEFT(Noticia,200)

 

Depois voce imprime a noticia ja abreviada

 

se quiser uns pontinhos depois é so concatenar

 

 

Noticia = LEFT(Noticia,200) & "..."

 

Tem funções mais detalhistas no laboratorio de scripts, procure pela função pontinhos

Compartilhar este post


Link para o post
Compartilhar em outros sites

Movido de Laboratório de scripts (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif ASP

 

faz isso aqui:

 

teste = "Estou montando um sistema de noticia parecido com o da UOL e pretendo fazer com que apareça um pequeno trecho da noticias, coisa de 200 a 250 caracteres... mas ñ estou conseguindo ""esconder"" o restante do texto."

if len(teste) > 100 then
response.Write(left(teste,100)&"...")
else
response.Write(teste)
end if

Compartilhar este post


Link para o post
Compartilhar em outros sites

teste = "Estou montando um sistema de noticia parecido com o da UOL e pretendo fazer com que apareça um pequeno trecho da noticias, coisa de 200 a 250 caracteres... mas ñ estou conseguindo ""esconder"" o restante do texto."

if len(teste) > 100 then
response.Write(left(teste,100)&"...")
else
response.Write(teste)
end if

no caso este texto será puxado do banco de dados...

estou enviando o código de visualização para ficar mais facil

 

<table width="72%" border="0" cellspacing="0" cellpadding="0">
		  <tr>
			<td width="4%"></td>
			<td width="92%"></td>
			<td width="4%"></td>
		  </tr>
		  <tr>
			<td height="115"> </td>
			<td><div align="center"><a href="vis_noticias.asp?codigo=<%=(noticias.Fields.Item("codigo").Value)%>"><img src="../imagens/noticias/<%=(noticias.Fields.Item("imagem_destaque").Value)%>" width="300" height="110" border="0" /></a></div></td>
			<td> </td>
		  </tr>
		  <tr>
			<td><div align="left"><a href="<%=MM_movePrev%>"><img src="imagens/setanot_voltar.jpg" alt="Voltar Notícia" width="15" height="15" border="0" /></a></div></td>
			<td><div align="center"><a href="vis_noticias.asp?codigo=<%=(noticias.Fields.Item("codigo").Value)%>" class="ver_lista"><strong><%=(noticias.Fields.Item("titulo").Value)%></strong></a></div></td>
			<td><div align="right"><a href="<%=MM_moveNext%>"><img src="imagens/setanot_avancar.jpg" alt="Avançar Notícia" width="15" height="15" border="0" /></a></div></td>
		  </tr>
		  <tr>
			<td colspan="3">
********************************************************************************
*** Aqui aparecerá o texto cortado e para puxar do banco uso: <%=(noticias.Fields.Item("texto").Value)%> ***
********************************************************************************
</td>
			</tr>
		</table>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você quer saber como colocar?

if len(noticias.Fields.Item("texto").Value) > 100 then
response.Write(left(noticias.Fields.Item("texto").Value,100)&"...")
else
response.Write(noticias.Fields.Item("texto").Value)
end if

Compartilhar este post


Link para o post
Compartilhar em outros sites

Topicos mesclados

Compartilhar este post


Link para o post
Compartilhar em outros sites

beleza consegui fazer usando o código:

 

<%
noticia = LEFT((noticias.Fields.Item("texto").Value),100 & "...")
Response.Write(noticia)
%>

Mas ñ funciona os 3 pontos e a "frase" aparece deste jeito...

J� faz algum tempo que a �poca dos �geninhos� fazedores de sites acabou, uma �poca em que o importa

tem como arrumar para aparecer os caracteres acentuados???

Compartilhar este post


Link para o post
Compartilhar em outros sites

tente usar essa aqui:

 

noticia = noticias.Fields.Item("texto").Value

if len(noticia) > 100 then
response.Write(left(noticia,100)&"...")
else
response.Write(noticia)
end if

os caracteres vão depender muito, pode ser a sua meta-tag do html ou o codepage do ASP

Compartilhar este post


Link para o post
Compartilhar em outros sites

para aparecer os pontinhos deve concatenar fora do left

Compartilhar este post


Link para o post
Compartilhar em outros sites

Que bom entao

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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