Limitador de texto

[Frango 0]

Galera seguinte, eu tenho um texto cadastrado no banco e estou chamando ele em uma página. Porém eu quero mostrar somente uma parte desse texto e acrescentar reticências no final junto com um link de saiba mais.Como eu faço para limitar esse texto e acrescentar as reticências?

[Frango 0]

Fala Alves,Já tentei usar o LEFT, mas ele ta cortando inclusi as palavras ... exemplo: Teste teste teste teste teste teste teste teste tes...Gostaria q ele cortasse palavras nesse casso: Teste teste teste teste teste teste teste teste ...tem como??

[Salgado 4]

Cara dá uma olhada no "Laboratório de Scripts" que temos uma função postada para isso.

[Frango 0]

Fala Salgado,Onde está esse "Laboratório de Scripts"?

[Salgado 4]

É um dos Sub-Fóruns de ASP, tá lá no topo da página. Ahhh, procura por função tres pontinhos ou algo parecido lá.

[Frango 0]

Valew galra, achei o laboratorio!Estou usando essa função aki<% Function resumindo(txt,vCrt) if Len(txt) <= vCrt then response.write (left(txt,vCrt)) else while not ul=" " or vCrt=len(txt) vExibe = left(txt,vCrt) ul= right(vExibe,1) vCrt=vCrt+1 wend if vCrt=len(txt) then Response.Write(txt) else vExibe=left(vExibe,(len(vExibe)-1))&"..." Response.Write(vExibe) end if end if end function%>E estou chamando ela assim<p><% response.write resumindo(rsdestaques("descricao"),10) %></p>Mas está dando esse erro na linha 37Erro de tempo de execução do Microsoft VBScript (0x800A005E)Uso inválido de NullLinha 37 = vExibe=left(vExibe,(len(vExibe)-1))&"..."

[Salgado 4]

<%Function resumindo(txt,vCrt)
if Len(txt) <= vCrt then
Resumindo = (left(txt,vCrt))
else
while not ul=" " or vCrt=len(txt)
vExibe = left(txt,vCrt)
ul= right(vExibe,1)
vCrt=vCrt+1
wend
if vCrt=len(txt) then
Resumindo = txt
else
vExibe=left(vExibe,(len(vExibe)-1))&"..."
Resumindo = vExibe
end if
end if
end function%>

Dei uma acertadinha básica na função, e verifique sempre se existe algum dado no campo antes.

[Frango 0]

Mesmo erro!

[Mário Monteiro 179]

tem valor o que ta passando para a função???

 

verifica se ta nulo pois pelo que vi rapidamente precisa ter pelo menos um caracter

 

Descricao = rsdestaques("descricao")IF LEN(Descricao ) < 1 THEN	response.write("Não Pode")ELSE	response.write resumindo(Descricao ,10)END IF

[Frango 0]

Fala Marioufpa,Realmente o valor está nulo, me retornou "Não Pode".Como eu faço para passar o valor para a função?

[Salgado 4]

Não tem problema na função, apenas esse campo do BD que está vazio. Com o teste que o Mário fez (e que eu havia recomendado) é só trocar o "Não pode" por alguma outra mensagem ou então verificar o porque desse campo estar vazio.

[Frango 0]

Salgado o campo "descricao" nao esta vazio naum....ele e um texto de 4 paragrafos

[Mário Monteiro 179]

é porque não tem como resumir algo vazio...voce pode trocar o "não pode" por isso "" apenas assim não resume e não dá erro

[Salgado 4]

Salgado o campo "descricao" nao esta vazio naum....ele e um texto de 4 paragrafos

Se com o IF que o Mário postou mostrou a mensagem "Não pode" significa que o campo está vazio.

[saloeric 1]

pode fazer assim

 

desc=rs("campo")if len(desc)>200 thencumprimento=left(desc,200)espaco=instrrev(cumprimento," ")saida=left(desc,espaco)elsesaida=descend if

[Frango 0]

Ele não está vazio,Se eu der um response.write normal ele vai aparecer o texto todo. Como o marioufpa disse eu tenho q passar o valor para a função.So naum sei como fazer isso!

[Mário Monteiro 179]

sim é verdade o campo tá vazio...voce não tá confundindo com outro registro de descricao???

[Frango 0]

Naum, o campo está ok!

[Mário Monteiro 179]

faça isso então

 

Descricao = rsdestaques("descricao")response.write(Descricao & "<br>" & LEN(Descricao))

[Frango 0]

Apareceu o texto inteiro!