Ver Mensaje Individual
  #4 (permalink)  
Antiguo 22/08/2014, 03:37
alpe2000
 
Fecha de Ingreso: enero-2008
Ubicación: Málaga - España
Mensajes: 346
Antigüedad: 16 años, 3 meses
Puntos: 13
Respuesta: cadenas de Derecha a Izquierda

Yo lo uso así.

Código ASP:
Ver original
  1. i = 0
  2. Maximo = 60       ' Tamaño máximo permitido
  3. Cadena = AQUI_PON_LA_CADENA_DE_TEXTO
  4. If len ( Cadena ) > Maximo Then
  5.     Cadena2 = Split ( Cadena, " " )
  6.     Cadena = ""
  7.     Do While len ( Cadena ) + len ( Cadena2 ( i ) ) < Maximo
  8.        Cadena = Cadena & " " & Cadena2 ( i )
  9.        i = i + 1
  10.     Loop
  11.     If cadena <> "" then
  12.         cadena = cadena & " ..."
  13.     End if    
  14. End if