FiveTech Software tech support forums

Saludos
Estoy experimentando resultado de Memoread() devuelve vacío en archivos de extensión TXT,
estoy evaluando utilizar la clase TFile

... 38 TCLIPBOARD 39 TBUTTON 40 TBUTTONBMP 41 TSAY 42 TMULTIGET 43 TLISTBOX 44 HBFORMATCODE 45 CODEFORMAT 46 TCURSOR 47 TSCINTILLA 48 TSPLITTER 49 TFILE 50 TTXTFILE 51 TGROUP 52 TPANEL Memory Analysis =============== 693 Static variables Dynamic memory consume: Actual Value: 14745600 bytes Highest ...

... MYC_FLAGS = MYDEFINES = MYPRG_FLAGS = [Source\Classes\tfield.prg] MYC_FLAGS = MYDEFINES = MYPRG_FLAGS = [Source\Classes\tfile.prg] MYC_FLAGS = MYDEFINES = MYPRG_FLAGS = [Source\Classes\tfilegtf.prg] MYC_FLAGS = MYDEFINES = MYPRG_FLAGS = [Source\Classes\tform.prg] MYC_FLAGS ...

Both TxtFile.prg and TFile.prg are also identical in the 13.04 and 15.05 versions. So the problem happened before April 2013.

James

... error log is below. I did a file compare with my current 15.05 version and the 14.11 version and the files are identical. TxtFile inherits from TFile and those two files are also identical. So the change happened sometime before Nov of last year. Note that TFile does not inherit from another ...

... not available. QUIERO BUSCAR EL FOLIO 10 y TRAERME TODO LO QUE SE REFIERA A ESE CODIGO TODA SU INFORMACIO; Saludos Puedes utilizar la clase TFILE(), cada cuota esta separada por lineas vacias, aqui podras saber cuando concluye cada FOLIO

... // Remanente de la Ultima Página IF nSize>aTotal[1] AADD(aPages,{nSize-aTotal[1]}) ENDIF // Se Extra Pagina por Pagina del Arhivo MIME oFile:=TFILE():New(cFileMime) FOR I=1 TO LEN(aPages) cMemo:=oFile:cGetStr( aPages[I,1] ) AADD(aPag,cMemo) nTotal:=nTotal+LEN(cMemo) NEXT I oFile:End() ferase(cFileMime) ...

... "Obj\tdtpicke.obj" "Obj\tenhmeta.obj" "Obj\texstruc.obj" "Obj\tfield.obj" "Obj\tfile.obj" "Obj\tfilegtf.obj" "Obj\tform.obj" "Obj\tftp.obj" "Obj\tftpcli.obj" "Obj\tftpfile.obj" ...

... no posee Registros en la tabla "+cTable) RETURN .F. ENDIF lZip :=aData[1,2] IF !lZip cFileMime:=cFile ENDIF ferase(cFileMime) oFile:=TFILE():New(cFileMime) FOR I=1 TO LEN(aData) oFile:PutStr( ALLTRIM(aData[I,1])) NEXT I oFile:End() IF lZip cDirTo :=cFilePath(cFile) FMimeDec(cFileMime,cFileZip) ...

Lo logre con STRTRAN(tFile,",","")

Gracias

Saludos,

Adhemar

Hola a todos,

Alguien me podría decir donde está definito el método ::AppLine() de la clase TTxtFile?

Se que está clase hereda de la clase TFile, pero en ninguna de las dos encuentro el código de este método.

Gracias

Antolin

la clase TTxtFile es una extencion mejorada de TFile

... He probado el EXE y va muy bien, la verdad. He aprovechado para echarle un vistaso a esa clase y a la clase ttxfile, pues en mi FW la clase tFile no tiene método ::ReadLine() y me parece muy, muy intersante. De hecho creo que voy a pasar de Funcky y quedarme con lo que tenemos. Gracias

Saludos Puedes mirar la clase TFile de fivewin Antolin disculpa la pregunta, pero encontraste algun problema con la sugerencia que te expuse....??? aqui hay un ejemplo simple del funcionamiento de la clase... el 1ero botton crea un archivo ...

Saludos


Puedes mirar la clase TFile de fivewin