Need to open and read text file.

[NickSteel]

Could I trouble you one more time? I wanted to save cLine to a file while it processed.

Code: Select all

If nArquivo # -1
   Do While !lEof   .and. ctr<10
      cLine := CharRem( Chr(26), ReadLine(nArquivo,LINEBUFF) )
     Aadd(aLine,cLine)
     msginfo(cline)
     fwrite(outfile,cLine)
     ctr++
   Enddo
Endif

This doesn't seem to work. I am having trouble with fwrite. Don't know what I'm doing wrong.

Message re-edited to put the tag 

Code: Select all

 [/b]

Please note tag CODE is recommended when it is source code samples posted for better reading.[/color][/quote]

[Pablo César]

Could I trouble you one more time? I wanted to save cLine to a file while it processed.

No problem.

Code: Select all

nFhandle2:= Fcreate( 'File.txt', 0 )
If nFhandle2 > 2
   Do While !lEof   .and. ctr<10
      cLine := CharRem( Chr(26), ReadLine(nArquivo,LINEBUFF) )
     Aadd(aLine,cLine)
     FWriteLine( nFhandle2, cline )
     ctr++
   Enddo
Endif

Static Function FWriteLine( nHandle, cString )
Fwrite( nHandle, cString )
Fwrite( nHandle, chr(13) )
Fwrite( nHandle, chr(10) )
Return Nil

You can use FWriteLine for many files, depending always nFhandle from Fcreate you do.

[NickSteel]

Wow. I just processed a 2400 line file in a 6 seconds on an old dual core laptop! Had to make LINEBUFF very large, but it worked like a champ.

You've made my day.

[Pablo César]

Remember: these functions are in LOW LEVEL. The best way to access files and read strings, also binaries. Study all these low level functions, very very useful.

I am happy to be helpfull...

[NickSteel]

Since you're a whiz with low level functions, do you have suggestions for parsing the tab delimited data while it is in the buffer? I've been searching sites and have read that it is much faster than writing to a string variable and parsing that. What I wish to do is read lines from a Primavera P6 XER export file (text delimited with tabs), select some "fields" of data and update existing DBF files. Your code is lightning fast at accessing the input text, but I haven't been able to find any existing parsing functions.

Your aid is very appreciated.

[Pablo César]

I learned much including low level functions, with this guy. There is also good and friendly atmosphere in Clipper on Line forum.

Could you post some sample file in you next post ? Just to see it in hexadecimal editor and check which exactly is needing for.

For parsing characters even in the buffer it could be done. You will find an example at STRU.prg ( here it is the package project, without executable file) and look up for "Function Le_Variavel(cBuff)"

[srvet_claudio]

What is easy way to display the array?

I usually use DebugMSG function from our colleague Marek. Hereunder is:

Code: Select all

Function DebugMSG
Local i, aTemp := {}
   
For i := 1 to pcount()
    aadd( aTemp, hb_PValue(i))
Next i
MsgBox(hb_valtoexp(aTemp), "Helpful informations")
Return Nil

Put in you code and call this function like this: DebugMSG(aLine)

This is very clever code! I know it will solve my problem, as it reads the source file line by line.

Thank you and glad to know it has been helpful to you...

Since version HMG.3.1.3

Code: Select all

MsgDebug ( xData1, xData2, ... )  --> Accepts as a parameters any data type, elements or objects.
Returns a string with the message displayed on the screen.
 
Example:
Num   := 10
aData := { "Number", 38, "aRGB", YELLOW, "Hello" }
cMsg  := MsgDebug ( TIME(), aData, {|| NIL}, Num == 3 )

[NickSteel]

Can't attach txt or xer files.

[Pablo César]

Since version HMG.3.1.3

Code: Select all

MsgDebug ( xData1, xData2, ... )  --> Accepts as a parameters any data type, elements or objects.
Returns a string with the message displayed on the screen.
 
Example:
Num   := 10
aData := { "Number", 38, "aRGB", YELLOW, "Hello" }
cMsg  := MsgDebug ( TIME(), aData, {|| NIL}, Num == 3 )

Dr. Soto Thanks for reminding us! Had not stopped to see such a function.

Can't attach txt or xer files.

Try to attach using WinRar. Probably it due for forum security reasons.

[NickSteel]

My source file.