FoxPro/Visual FoxPro - Interesante. III entrega

Function JUST_TOT()
Lparameter cadena, long_lin, fuente, altura, bajar

Local n, LineaTexto, espacio, nlineas, i, nueva_cad, subCadena, u_caracter

cadena= rtrim(m.cadena)

SET MEMOWIDTH to m.long_lin
nlineas = MEMLINES(cadena)
nueva_cad=""

FOR i=1 to nlineas
IF " " $ MLINE(cadena,i) && sangría izquierda 1era linea
subCadena=MLINE(cadena,i)
ELSE
subCadena=alltrim(MLINE(cadena,i))
ENDIF

u_caracter=subs(subcadena,len(subcadena),1)
if m.i<nlineas .and. (ISALPHA(m.u_caracter) .or. m.u_caracter # ".") .and.;
m.u_caracter # ":"

n=1
do while TxtWidth(m.subCadena,fuente, altura)<= m.long_lin ;
.and. AT(chr(32),m.subcadena)>0
if substr(subCadena, LEN(subCadena)-n,1)=space(1)
subcadena = STUFF(subCadena, LEN(subCadena)-n,0,space(1))
n=n+1
endif
n=IIF(n>=LEN(subCadena),1,n+1)
enddo
endif

IF i= nlineas
nueva_cad= nueva_cad + subcadena
ELSE
*IF m.u_caracter= "." .or. m.u_caracter= ":"
if bajar
nueva_cad= nueva_cad + subcadena + chr(13) + chr(13)
ELSE
nueva_cad= nueva_cad + subcadena + chr(13)
ENDIF
ENDIF
ENDFOR

return(m.nueva_cad)