Hello
Look that code please
Resp := LOpen("TEXTO.TXT",0)
Do While .t.
Resp1 := cFReadLine(Resp)
========> why i can test end of file to abort this while?
Loop
Enddo
Thanks
Wanderson.
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour About end of file (txt)
I modify incoming formats this way
It's very fast with xHarbour
Hope this helps
JH
getcFile := cGetFile32("Print Files (*.ofx; *.ofc)| *.ofx; *.ofc |" ,"Please select a file",1)
nBinary := FOPEN(getcFile)
IF (nError := FERROR()) # 0
MsgInfo('Cannot open '+getcFile+CRLF+::FError(nError))
ELSE
MEMORY(-1) // Maybe not necessary now
IF FREADln(nBinary, @cBuffer, 32768, CHR(0))
// CR & LF is stripped out and LF placed in the correct position
// STRTRAN( <cString>, <cLocString>, <cRepString>, <nPos>, <nOccurences> ) --> cReturn
cBuffer := STRTRAN(cBuffer, CHR(13)) //replace CR with Null
cBuffer := STRTRAN(cBuffer, CHR(10)) //replace LF with Null
cXML := STRTRAN(cBuffer, '<', CHR(10)+'<') //replace < with <LF
ENDIF
FCLOSE(nBinary)// then saved to a new file
cXMLBnkStment := SUBSTR(getcFile,1,RAT('\',getcFile))+'BNKSTMT.XML'
nHandle:=FCREATE(cXMLBnkStment)
FWRITE(nHandle, cXML)
FCLOSE(nHandle)Hope this helps
JH
Wanderson,
This is a real fast way to do it:
This is a real fast way to do it:
cTxtFile = MemoRead( cRCFile )
nFrom = 1
while nFrom < Len( cTxtFile )
cLine = ExtractLine( cTxtFile, @nFrom )
...
SysRefresh()
endThanks Antonio and JH.