22/02/2005, 12:52
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
A ver si esto funciona:
Código:
var = cadena_original
strInterior = ""
For i = 0 to (len(var)/5)
If i = 0 Then
strInterior = strInterior & mid(var, 1, 50) & "<br>"
Else
strInterior = strInterior & mid(var, i * 50, 50) & "<br>"
End If
Next
Salu2,
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |