16/08/2005, 10:06
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Madrid
Mensajes: 124
Antigüedad: 23 años, 3 meses Puntos: 0 | |
| A ver si te vale esto:
Saludos
Maximo=Longitud máxima de una "palabra" en el String
ArrVar=Split(var," ")
For i=0 to ubound(ArrVar)
if Len(ArrVar(i))>Maximo then
var2=""
for i2=0 to Int(Len(Arrvar(i))/Maximo)-1
var2=Var2&" "&Mid(ArrVar(i),i2*Maximo+1,Maximo)
next
var2=var2&" "&right(ArrVar(i),Len(ArrVar(i))-Int(Len(Arrvar(i))/Maximo)*Maximo)
ArrVar(i)=var2
end if
next
var=join(ArrVar) |