encontre la funcion y lo consegui implementar, pero tengo un problema si meto 2 palabras mas largas de los X caracteres, en el segundo me aparece el trozo del primero tambien. me explico si meto holaaaaa y el primer corte es ho-laaaaa y luego mundoooo....el segundo corte es laaaaaa-mun ........dooooooo
Las funciones son:
Código PHP:
Function txt2htm(txt)
txt2htm = txt
txt2htm = Replace(txt2htm, VBCrLf, "<br>" & VBCrLf)
txt2htm = Replace(txt2htm, CHR(9), "<pre style='display:inline'>&-#09;</pre>")
End Function
Function CortarLargos(a_cortar, Largo, Separador)
Dim arrcadena, i, j, veces,tmp,tmp2
arrCadena = Split(a_cortar, " ")
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
CortarLargos = Join(arrCadena)
CortarLargos = txt2htm(CortarLargos)
End Function