"Trocear" strings demasiado largos

[renton]

Hola gente,
Necesito una función que me revise si en una variable hay un string demasiado largo y, en ese caso, que lo corte en 2 o mas (separandolo con espacios);

Ejemplo:
var="Que chiste mas bueno! Buaaahahahahahahahahahaha!!!!"

Resultado:

var="Que chiste mas bueno! Buaaahahaha hahahahaha haha!!!!"

Graciasss!!!

[Aibarra.net]

Buenas,

pues así de repente se me ocurre que podrías tomar la cadena, ir recorriéndola buscando la posición de los espacios (con InStr) e ir mirando la distancia entre espacios consecutivos. Si es más de la que quieres, le cascas un espacio y arreglado.

[El_Metallick]

se ha traado muchas veces este tema... busca en el foro seguro que esta la respuesta a lo que buscas... saludos

[macedo]

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)

[lexus]

hola prueba con esta que es la que yo uso, no recuerdo muy bien quien la hizo,
function cortarcadena(Cadena)
Dim Largo, Separador, arrCadena, i
Dim Veces, j, Tmp, Tmp2
Largo = 30
Separador = " "
arrCadena = Split(Cadena, " ")
For i = 0 to UBound(arrCadena)
If Len(arrCadena(i)) > Largo Then
Veces = (Len(arrCadena(i)) \ Largo) + 1
For j = 1 To Veces
Tmp = Mid(arrCadena(i),(j*Largo) - (Largo - 1), Largo)
Tmp2 = Tmp2 & Tmp & Separador
Next
Tmp2 = Left(Tmp2, Len(Tmp2) - Len(Separador))
arrCadena(i) = Tmp2
End if
Next
cortarcadena = Join(arrCadena)
end function

se usa asi


variable = cortarcadena(variable)

[renton]

Ok, la función de Macedo de todas formas es perfecta.
Gracias!!!