Modificar código de tres pontinhos

[Hebe 0]

Boa tarde :) :D :P

 

Eu fiz uma pequena pesquisa, aqui no fórum, algum tempo atrás e encontrei um código de três pontinhos muito bom. O mais interessante que o código não corta uma palavra pela metade... ex:

 

Original: Obrigado pela ajuda

Como fica: Obrigado pela... (estou utilizando 10 caracteres no código (a contagem para no “e” da palavras pela))

 

Tentei fazer uma pequena modificação no código pois quando a quantidade de caracteres chega ao limite no meio de uma palavra o código acrescenta os caracteres restantes para finalmente colocar os três pontinhos. Eu estou tentando fazer exatamente o contrário... se a quantidade de caracteres chega ao limite no meio de uma palavra o código tem que retirar os caracteres restantes para finalmente colocar os três pontinhos... ex:

 

Original: Obrigado pela ajuda

Como fica: Obrigado... (estou utilizando 10 caracteres no código (a contagem para no “e” da palavras pela))

 

Alguém poderia me ajudar http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif Obrigada

 

<%Function Resumindo(strBuf, intSize)

Dim i, strTmp

If Len(strBuf) < intSize Then

Resumindo = strBuf

Else

If Mid(strBuf, intSize, 1) = " " Then

strTmp = Left(strBuf, intSize - 1)

Else

strTmp = Left(strBuf, intSize)

For i = intSize + 1 To Len(strBuf)

If Mid(strBuf, i, 1) = " " Then Exit For

strTmp = strTmp & Mid(strBuf, i, 1)

Next

End If

Resumindo = strTmp & "..."

End If

End Function%>

 

<%= resumindo(rs("previo"), 10)%>

[Hebe 0]

lucasBR, obrigada pela ajuda, mas não estou querendo cortar a palavra no meio. Estou querendo que retire a palavra... o código que eu tenho, que estou tentando modificar, coloca a palavra por enteiro e eu quero retirar.

 

Ex. de como funciona atualmente

Original: Obrigado pela ajuda

Como fica: Obrigado pela... (estou utilizando 10 caracteres no código (a contagem para no “e” da palavras pela))

 

 

Ex. de como deve funcionar

Original: Obrigado pela ajuda

Como fica: Obrigado... (estou utilizando 10 caracteres no código (a contagem para no “e” da palavras pela))

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[DackAle 0]

Olá

 

Eu criei a uns 3 anos essa pequena função 3 pontinhos, que funciona perfeita, coloca os 3 pontinhos, sem quebrar palavra e caso for menor que o número de caracteres, nem cola os 3 pontinhos

 

'Para chamar a função'pontinhos(variavel,numero_de_caracteres)'ExemploVarPalavra = "Olá amigo, sou novo aqui e gostaria de fazer novas amizades."Response.Write Pontinhos(VarPalavra,15)'Função para cortar String e colocar três pontinhosfunction pontinhos(palavra,numero)	if len(palavra) > numero then		texto = left(palavra,numero)		procura = instrrev(texto,chr(32))		pontinhos = left(texto,cint(procura) - 1) & "..."	else		pontinhos = palavra	end ifend function