| Hola invitado |
|
02 Sep, 2010 - 04:48 |
|
 |
|
© 2009 PortalFox
|
|
|
| Enviado por Luis María Guayán en Martes, 06 Julio, 2004 |
|
 Función que añade un caracter de Retorno de Carro "CHR(13)" en un párrafo para separarlo en líneas de "n" caracteres sin cortar ninguna palabra.
Separar párrafos en líneas de "n" caracteres Por Luis María Guayán, Tucumán, Argentina
La función recursiva CortarParrafo() prepara una cadena para luego separarla con la función ALINES() en varias lineas de "n" o menos caracteres.
Ejemplo:
lcCadena = "SON PESOS: NOVECIENTOS CINCUENTA Y CUATRO MIL " + ;
"TRESCIENTOS OCHENTA Y NUEVE CON SETENTA Y CINCO CENTAVOS."
FOR ln = 1 TO ALINES(la,CortarParrafo(lcCadena,40))
? la(ln)
ENDFOR
FUNCTION CortarParrafo(tc,tn)
LOCAL lc, ln
tc = ALLTRIM(tc) + " "
lc = SUBSTR(tc,1,tn)
ln = RAT(" ",lc)
lc = SUBSTR(lc,1,ln-1)
RETURN IIF(EMPTY(lc),lc, ;
lc + CHR(13) + CortarParrafo(SUBSTR(tc,ln+1),tn))
ENDFUNC
|
|
 |
|
|
|
| Separar párrafos en líneas de "n" caracteres | Entrar/Crear una cuenta | 0 Comentarios |
|
| Los comentarios son propiedad de sus respectivos autores.
No somos responsables de su contenido. |
|
Todas las marcas y los logos utilizados en este sitio son propiedad de sus respectivos dueños.
Los artículos, noticias y comentarios son propiedad y responsabilidad de sus respectivos autores.
Copyright © 2000-2010 PortalFox. Todos los derechos reservados.
|
|
