tag:blogger.com,1999:blog-8847231238348131912.post4665750617600487744..comments2024-03-18T09:05:30.791-03:00Comments on Comunidad de Visual FoxPro en Español: Texto justificado en informe de VFPLuis Mariahttp://www.blogger.com/profile/01349796512778225709noreply@blogger.comBlogger3125tag:blogger.com,1999:blog-8847231238348131912.post-41787292357973233962017-06-24T18:39:31.875-03:002017-06-24T18:39:31.875-03:00If LEN(lcRenglon)>0 and LEN(lcRenglon)0
en es...If LEN(lcRenglon)>0 and LEN(lcRenglon)0<br /><br /> en esta linea hay un error en "LEN(lcRenglon)0"danarhttps://www.blogger.com/profile/03004539226845721367noreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-92080574150929240392016-09-19T22:25:18.949-03:002016-09-19T22:25:18.949-03:00Esta funcion me "funciona" bien:
******...Esta funcion me "funciona" bien:<br /><br />***********************<br />Function FUNJUSTIFICAR<br />***********************<br />Lparameters lcTexto, lnAncho<br />Local lnSetMemo, i, lnRens, lcResultado<br />lcResultado=""<br />lnSetMemo=SET("MEMOWIDTH")<br />Set Memowidth To lnAncho<br />For i=1 to MEMLINES(lcTexto)<br /> lcRenglon=ALLTRIM(MLINE(lcTexto,i))<br /> If LEN(lcRenglon)>0 and LEN(lcRenglon)0<br /> lcResultado=lcResultado+CHR(13)+CHR(10)<br /> EndIf<br /> lcResultado=lcResultado+lcRenglon<br />EndFor<br />* -- OJO: Si el ancho original es menor al ancho deseado, no funciona, por la validacion siguiente<br />If lnSetMemo>lnAncho<br /> Set Memowidth To lnSetMemo<br />EndIf<br />Return lcResultado<br />Anonymoushttps://www.blogger.com/profile/01686350907379028298noreply@blogger.comtag:blogger.com,1999:blog-8847231238348131912.post-54772648494775574172016-02-18T14:54:13.123-03:002016-02-18T14:54:13.123-03:00Eres un verdadero monstruoEres un verdadero monstruoAnonymousnoreply@blogger.com