Jump to content


Photo

Compactar Mensagem


  • Faça o login para participar
2 replies to this topic

#1 rondeico

rondeico

    Novato no fórum

  • Usuários
  • 8 posts
  • Sexo:Não informado

Posted 01/02/2006, 04:13

Olá colegas JavaScriptianos.

Eu já vi em alguns sites, principalmente de notícias, que o "Breve Relato" da Notícia, é truncado no final e apresenta uma sequência de 3 pontos (...) pra dar idéia que o texto tem continuação.

Por exemplo: eu tenho uma notícia: "Lula diz que não sabia de nada a respeito da corrupção e jura ser honesto"

O breve relato é apresentado assim: "Lula diz que não sabia de..."


Eu programo em JavaScript+ASP.

Agradeço mesmo que for uma dica.

#2 Paulo Freitas

Paulo Freitas

    ××××××× LRU #456504 ××××××× ××××××× LRM #364686 ×××××××

  • Ex-Admins
  • 5612 posts
  • Sexo:Masculino
  • Localidade:Campinas - SP

Posted 01/02/2006, 04:31

Esta operação deve ser feita no lado do servidor (ASP), pois caso fosse feita no lado do cliente (JavaScript), de nada adiantaria (em termos de otimização). Portanto, movendo para o local adequado ... ;)

[]’s :D Até mais

#3 replay

replay

    Agora a vida começa...

  • Usuários
  • 421 posts
  • Sexo:Não informado

Posted 01/02/2006, 11:26

Codigo da função

Function Anteprima(sText, nParole)

  Dim nTemp, nVolte

  sText = Replace(sText, vbCrLf, "")


  nTemp = InStr(sText, " ")

  If nTemp <> 0 Then

     nVolte = 1

     While nTemp <> 0 And nVolte < nParole 

         nVolte = nVolte + 1


         nTemp = InStr(nTemp + 1, sText, " ")
     Wend
  End If

  If nVolte > 0 Then

     If nTemp > 0 Then


         Anteprima = Mid(sText, 1, nTemp - 1) & " ..."
     Else

         Anteprima = sText
     End If

  Else

     If Len(sText) > 0 Then
         Anteprima = sText
     Else
         Anteprima = "" 
     End If
  End If

End Function

parte que você vai por no coisa da noticia

strText = rs("campodanoticia")
Response.write anteprima(strText, 40) '40 é o numero de palavras que você quer que apareça


Edição feita por: replay, 01/02/2006, 11:27.

Não me adicione no MSN pq eu não vo te ajuda... se insistir eu vo ser grosso!!!
Ta com dúvida pergunta aqui no fórum...
Grato




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq