FiveTech Software tech support forums

... If Left(Rtrim(linetxt),6)="Sábado" iLinea := a+1 Exit EndIf Next ntxt:="" ltcambio := .F. otxt:=FCreate( op:temp+"tcambio.txt" ) For a:=iLinea TO nLine oWait:Say( 1,3,"Espere, Convirtiendo response..."+Space(30) ) SysRefresh() ...

... Thank you for the suggestion, but unfortunately, it's slower. It took 64sec to read it. The 'append from' was 35sec. Hi, Did you try this ? oTxt:=TTxtFile():New("yourtxtfile.txt") wnbl:=oTxt:recCount() && number of line if wnbl>0 for wbcl = 1 to wnbl aadd(vtxt,oTxt:ReadLine()) ...

Hi, Did you try this ? oTxt:=TTxtFile():New("yourtxtfile.txt") wnbl:=oTxt:recCount() && number of line if wnbl>0 for wbcl = 1 to wnbl aadd(vtxt,oTxt:ReadLine()) oTxt:skip() next endif oTxt:end() * Try it . Philippe ...

Los registros los tomo de un archivo de texto plano,
es muy rápido el while ! oTxt:Eof()
actualmente lo hago como dices
pero pensé si habría otra forma de hacerlo mas rápido,
quizás un PROCEDURE que corra dentro del mismo server,

saludos.

... las funciones solo las tengo en FUNS.PRG si quisiera saber que funciones se utilizan en todos los demas prgs del proyecto, seria facil para mi, oTxt := TTXTFILE():new( "funs.prg" ) oTxt:GoTop() while ! oTxt:eof() *** ...... oTxt:skip() end saludos..

It is in a .prg that cannot be condensed. To put it very simply, here is the original code line which compiles perfectly: REDEFINE GET oTxt:ltrtxt MEMO ID 912 OF oDlg UPDATE Here is the revised code line that fails: REDEFINE RICHEDIT oRtf VAR oTxt:ltrtxt ID 912 OF oDlg UPDATE The error message, ...

REDEFINE RICHEDIT oRtf VAR oTxt:ltrtxt ID 912 OF oDlg UPDATE

Fails on compile at RICHEDIT.
Yes, #INCLUDE "richedit.ch" is in the file

How about with a GET for a memo: REDEFINE GET oTxt:ltrtxt MEMO MESSAGE "Edit the text, and press OK to save your changes, or Cancel to exit" ; ID 912 OF oDlg UPDATE Get with Memo/Text is only meant for editing pure text. MemoEdit() function ...

How about with a GET for a memo:

REDEFINE GET oTxt:ltrtxt MEMO MESSAGE "Edit the text, and press OK to save your changes, or Cancel to exit" ;
ID 912 OF oDlg UPDATE

Amigos,

É possível utizando TTXTEDIT colorir uma parte da linha, exemplo:

oTxt:Colorear(10,20,CLR_RED)

obrigado

elvira, Podrias hacerle un recorrido con el ttxtfile. Ejemplo oTxt := ttxtfile( "miarchivo.txt" ) WHILE !oTxt:eof() if '"title":' $ oTxt:cLine cTitle := substr(oTxt:cLine, at(":", oTxt:cLine)) elseif '"pageCount":' ...

... mostrar el archivo de texto con la siguiente instrucción y lo muestra perfectamente @ 0, 0 xBrowse oBrw Of oDlg Columns "cLine" Object oTxt Font oFont  Se supone entonces que este control si soporta un objeto creado por la clase TTxtfile ( oTxt ). Puedo navegar perfectamente por el ...

Horacio

XBrowse no soporta de forma nativa ese objeto, pero igual verifica que existan metodos de navegacion(gotop, gobottom, skip, etc), posiblemente lo este usando como un objeto "Browseable" porias intentar usar el metodo "SetoDbf( oTxt )", talvez funcione (no lo he probado)

... al browse el nuevo objeto para que lo muestre. Así como para un objeto recordset lo muestro con oBrw : SetAdo( oRs), para mostrar un objeto oTxt generado por la clase TTxtFile, cual es el método ??? Espero haberme explicado. Nuevamente gracias por tu ayuda. Saludos

... him TTxtFile class. The object generated with class I show that a xBrowse follows: @ 0, 0 xBrowse oBrw Of oDlg Columns "cLine" Object oTxt Font oFont // oTxt objeto TTxtFile   So far it works perfectly, but when I change the date of reference, the object oTxt genre again, the xBrowse ...