FiveTech Software tech support forums

... cTexto, 100 )         SYSREFRESH()         oPrn:CmSay( nLin := nLin + .4, 1.5, MEMOLINE( cTexto, 100, nLinha ), oFont )         IF nLin > 25            nLin ...

Never mind! I just discovered that Harbour memo functions implicitly support long lines! Great!

I'm still searching for a solution. Any ideas? I need to read long lines (more than 254 characters) using MemoLine() with Harbour.

The point we were making is while printing normal multi-line text across pages, we do not need the outdated method of using memoline()s. oPrn:SayText() will automatically help, if you closely observe the code. But right now, this is not possible with RTF text. We understand your issue. ...

I changed one of my project so that it is using hb_atokens now and it works very well, thank you!

EMG

Thank you, I'll think about it for future projects. For existing ones I need Memoline(). It is very fast if used in the proper way.

EMG

Dear Enrico,

MemoLine() is extremelly slow.

Better use this technique:
local aLines := hb_ATokens( MemoRead( "test.txt" ), CRLF )

lines length will not be an issue then

Dear friends, how can I read long lines (ie. more than 254 characters long) using Memoline() with Harbour? xHarbour's Memoline() already supports long lines but the Harbour's one not.

EMG

... stated above, for the complexity of my need, I cannot use a REPORT. I need the equivalent for RTF of this output: oPrn:SayText( nRow, 10 * nCsp, MemoLine( oEndText:tagtext, 60, lx,, .T. ),,, oFnorm ) I would expect a SayRTF() Method but in the tPrinter class there is absolutely nothing that addresses ...

...   WOPAGEHEAD( oPrn, aHead )      IF lPrintColor         oPrn:SayText( nRow, 2 * nCsp, MemoLine( oEndText:tagtext, 120, lx,, .T. ),nCsp*120, nRsp * 1.1, oFcond, , CLR_RED )      ELSE        ...

... clientes->tipodoc,; str(clientes->vendedor,2),; str(clientes->lista,2),; str(clientes->con_iva,2),; clientes->cuit,; memoline(clientes->conpago,40,1,.t.); headers "Numero",; "Nombre",; "Domic",; "C.Postal",; "Localidad",; ...

... 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() and MemoLine. Set a proper value.

yes at left and another one on right on the same area. memoline I afraid it no good because i not know the size of each items. I wish make two smaller ( as body invoice part ) on the same area, see my invoice picture Silvio esa solución es aporte de ...

yes at left and another one on right on the same area. memoline I afraid it no good because i not know the size of each items. I wish make two smaller ( as body invoice part ) on the same area, see my invoice picture Silvio esa solución es aporte de ...

Silvio, Isn't this what you were looking for ?                FOR nLoop := 1 TO nLineas                    cDes    := MEMOLINE(ALLTRIM(::detalle[i]["nombreproducto"]),nLargo,nLoop)                    IF nLoop == 1                         ...