Funcion recorre palabra y si tiene mas de 15 caracteres la corta

[piskui]

Hola, necesito una funcion para que examine cada palabra de una frase y si alguna palabra tiene más de 15 letras, la corte con el tipo 'ho- (siguiente linea) la'.
Que funcion existe en asp para recorrer cada palabra dentro de una frase y para contar el nº de letras de cada palabra??
seguro que es básico pero llevo poco con aSP.
Gracias, un saludo.

[Muzztein]

checa la biblioteca de funciones que esta publicada en este foro.
por ahi meparecio ver una funcion que hacia exactamente lo que pides.

Pero asi a la rapida checa este codigo y de ahi te vas solito.

Código PHP:

  dim cadena, arreglo,x 
 
cadena = "[texto aqui]" 
 
arreglo = split(cadena," ") 
 
for x = 0 to ubound(arreglo) 
 
response.write arreglo(x)  & " tiene un largo de " & len(arreglo(x))  & " caracteres <br/>" 
 
next  
   

[piskui]

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