FiveTech Software tech support forums

If you call the function MLCount() you know before how many lines your memo has. DEFINE BRUSH oBrushshadow GRADIENT aGrad //shadow DEFINE BRUSH oBrushtext GRADIENT aGradtext //text nTotRows:= MLCount(Alltrim(cmessage),250) oPanel1 is ...

If you call the function MLCount() you know before how many lines your memo has.

... hasta cuando lo muestro en un xbrowse hf := memoread( cFilePath( exename() ) + "doc\1.txt" )   FOR x = 1 TO MLCount( hf )      cLinea:= MemoLine( hf,,x,.t.)      AAdd(a, cLinea)   NEXT   XBROWSER a Look at the second parameter of MLCount() ...

Todas sus sugerencias funcionan.
Efectivamente, Notepad++ muestra todos los caracteres.

nTotRows:= MLCount(Alltrim(cBuf),250)

nTotRows:= oFile:nTLines

Muchas gracias.

... tipo de separador. Si lo abro con un editor de texto, refleja correctamente la cantidad de lineas, pero no lo hace con las funciones MemoRead y MLCount. Aqui está el código que estoy usando, y su respectivo fichero.txt. Qué estoy omitiendo? #include "fivewin.ch"Function Main()local ...

... ) TRY *cCode := oIE:Document:body:innerHtml() cCode := oIE:Document:body:innerText() CATCH oError WaitOff( @oWait ) RETURN mResultado END nLine:= MLCOUNT(cCode,,3,.t.) iLinea := 0 For a:= 1 To nLine SysRefresh() linetxt:=Rtrim(memoline(cCode,80,a,3,.t.)) If Left(Rtrim(linetxt),6)="Sábado" ...

... Data SubStr(aDatDetalle[nRegis,3],1,I) SIZE 35 FONT 2 _ccCadena2 := SubStr(aDatDetalle[nRegis,3],I+1) EXIT ENDIF NEXT It is much easier to use MLCount() and MemoLine() nLines := MLCount( cText, nLen ) cLine1 := MemoLine( cText, nLen, 1 ) cLine2 := MemoLine( cText, nLen, 2 )

Excelente Armando, muchas gracias

Funciono a las mil maravillas.

Desconocía la existencia de las funciones MLCOUNT() y MEMOLINE().

Pdta. No me había quedado tiempo de mirar el código. Hemos estado un poco ocupados con el tema de la facturación electrónica.

... nsalto:=olis:nVertRes() / 65 // Renglones ncolum:=olis:nHorzRes() / 80 // Columnas xhoja:=0 xmarca:=0 PAGE T01001() texto1:=1->texto line_cnt:=mlcount(texto1,105) curr_line:=1 do while curr_line<=line_cnt if l>nsalto*60 ENDPAGE PAGE xmarca:=0 T01001() endif print_line:=memoline(texto1,105,curr_line) ...

... MHide()->Nil MilliSec(<nMilliSeconds>)->cNull Min(<xExp1>,<xExp2>)->xSmaller Minute(<dDateTime>)->nMinute MLCount(<cString>,[<nLineLength>],[<nTabSize>],[<lWrap>],[<lLongLines>])->nLines MLCToPos(<cText>,<nWidth>,<nLine>,<nCol>,[<nTabSize>],[<lWrap>],[<lLongLines>]))->nPosition ...

... Mantissa Max MaxCol MaxLine MaxRow MCol MDblClk MDY MemoEdit MemoLine MemoRead Memory MemoTran MemoWrit MemvarBlock MHide MilliSec Min Minute MLCount MLCToPos MLeftDown MLPos Mod Month MPosToLC MPresent MRestState MRightDown MRow MSaveState MSetBounds MSetCursor MSetPos MShow NationMsg NetCancel ...

Antonio buenas noches, ahora son estos: Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex) (Rev. 6406) Copyright 1999-2009, http://www.xharbour.org http:...

Antonio, aquí la segunda parte: Error: Unresolved external '_HB_FUN_DRAWTHEMED' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_GETDLGBASEUNITS' referenced from P:\32BITS\FWH\LIB\FIVEHX.LIB|DIALOG Error: Unresolved external '_HB_FUN_CDLG2CHR' referenced from P...

... text should fit in just one line. Do you mean that ? > can I calculate how much lines there are needed to print all text You may use Harbour MLCount() to know how many lines the text has

... did it--loading the entire file into memory then parsing it, rather than reading each line from the disk. Your coding mistake is here: nLinea :=MLCOUNT(cTexto) Should be: nLinea :=MLCOUNT(cTexto, 81) // was missing the line length I would also suggest setting cTexto to nil right after you are ...