FiveTech Software tech support forums

... I have a Do while loop Function Print_Schedule() Local aTable,a1,n,aTemp,x,aFlags:={} local c1,c2 local cFileName := "table.rtf" local oFile := FCreate(cFileName, 0) aTable := {} Do while (!oTemp4:Eof()) * If Empty(oTemp4:Nome) oTemp4:skip() Loop Endif ....................... c1:="Cartella ...

... static function SendFiles( cSource, cTarget, nBufSize, oFTP ) local hSource local cBuffer := Space( nBufSize ) local nBytes local oFile if ! File( cSource ) MsgStop( "File not found: " + cSource ) Return .f. endif hSource = FOpen( cSource ) oFile = TFtpFile():New( cTarget, ...

Saludos Logré resolver mediante FUNCTION MEMOREADX(cFile) LOCAL oFile,cLinea,cMemo:="" DEFAULT cFile:="DATAPRO.INI" oFile:= TTxtFile():New(cFile, 0) WHILE !oFile:Eof() cLinea:=oFile:ReadLine() cMemo :=cMemo+IF(Empty(cMemo),"",CRLF)+cLinea ...

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

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

nTotRows:= oFile:nTLines

Muchas gracias.

Prueba con oFile := TTxtFile():New( cFile )

nLines: = oFile:nTLines

Saludos

Please,
the definition of oFile:DateLastAccessed?

How can I try this?
How do I open a file to find that modified parameter?

Many thanks
Marco

local cCSVFile := "purcbill.csv"
local cCsv

oFile := TTxtFile():New( cCSVFile )
oFile:GoTop()
Do while !oFile:Eof()
cCsv := cCsv + oFile:ReadLine()
oFile:Skip()
Enddo

Instead of the above six lines of code,

Code: Select all  Expand view

cCsv := MEMOREAD( cCsvFile )
 

How ?

oFile := TTxtFile():New( cFileName ) << File is Unix Code or UTF-8 not BOM

Do While !oFile:Eof()
cLine := oFile:ReadLine() // << here is the problem
? cLine
oFile:Skip()
Enddo

... oInternet:End() retu .f. endi cFileOrigen:='c:\respaldo\Archivo.txt' hSource :=FOpen(cFileOrigen) cFileFTP:='httpdocs/Clientes/Archivo.txt' oFile :=TFtpFile():New(cFileFTP, oFTP) oFile:OpenWrite() FSeek(hSource, 0, 0) nBufSize:=2000000 cBuffer :=space(nBufSize) do while ( nBytes:=FRead( ...

... FUNCTION GETPAGES(cFileOrg) LOCAL cFileZip :=cFileTemp(".ZIP") LOCAL cFileMime:=cFileTemp(".TXT") LOCAL aFiles :={},nSize:=0,oFile,cMemo:="" LOCAL cBin :=Lower(cFilePath(GetModuleFileName( GetInstance() ))) LOCAL aPages:={},I,aTotal:={},nTotal:=0,lZip:=.F. LOCAL ...

... 0, nCol - ::GetTextWidth( cText, oFont ) ) Case nPad == PAD_CENTER nCol := Max( 0, nCol - ( ::GetTextWidth( cText, oFont ) / 2 ) ) EndCase If ::oFile # Nil ::oFile:Say( ::nFRow, ::nFCol, cText ) If ::nOldRow == Nil ::nOldRow := nRow ::nOldCol := nCol Else If ::nOldRow < nRow ::nFRow ++ ::nFCol ...

hmpaquito, Can you please tell me, what exactly is the purpose of this method? Can I use it somehow to catch the problem I have in function oFile:OpenWrite() when uploading to FTP? If so, can you please make a small example I need to be able either to detect if the program is in the Firewall ...

... program should be presented by Firewall information if the program is not on the firewall list: It hangs on: // This creates the object normaly oFile = TFtpFile():New( aTarget[ n ], oFTP ) // It hangs on the line below: oFile:OpenWrite() It doesn't show any info, just hangs forewer... Is there ...

... FTP y no consigo que funcione, a lo más que llega es a crear el archivo en el servidor, pero se queda con 0 bytes de longitud. La llamada a oFile:OpenWrite() se demora más de un minuto y se queda con permisos 644 en el servidor . Uso Harbour (no XHarbour), no se si esto tendrá algo que ver. ...

... 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) ...