03/02/2006, 03:22
|
| | | Fecha de Ingreso: enero-2006 Ubicación: Torroles (Costa der Só)
Mensajes: 1.017
Antigüedad: 19 años, 4 meses Puntos: 7 | |
Esta funcion te permite hacer eso:
Código:
public Function cortaEnPalabras(Text, Length, Trail)
dim Words, word, TextTemp
'Solo trunca el texto si el tamaño de la cadena es mayor que la longitud deseada
If Len(Text) > Length-Len(Trail) Then
'Separa todas las palabras de la cadena
Words = Split(Text, " ")
For each word in Words
If Len(TextTemp) > Length-Len(Trail) Then
Exit For
End If
TextTemp = TextTemp & word & " "
Next
cortaEnPalabras = Left(TextTemp, Len(TextTemp)-1) & Trail
Else
'Si la longitud es menor, visualiza la cadena completa
cortaEnPalabras = Text
End If
End Function
Un saludo |