fputs - how can a text file have lines appended to it 1

[jworley]

Hi everyone

I have a routine that produces a text file for importing into an invoicing program, using fputs. I can create a new text file OK (fcreate), and have succeeded in writing to it, but I would like to re-open the file I created and add more lines to it at a later date. When I do this, I get a valid file handle returned but when I write lines to it using fputs, they don't get written. My code is:

&& Create the invoice file
fileHandle = fopen('invoice.csv') && Tried 12 & 2, no luck
if fileHandle = -1
&& File has been deleted, create a new one
fileHandle = fcreate('invoice.csv')
endif

&& Now some code that stores values from a table to a buffer


&& Put the new line in the text file
fputs(fileHandle,fileBuffer)

BTW, I don't want to use export as it is not appropriate for what I want to do. Any ideas anyone ??

Jim Worley
jim@aits-uk.net

http://www.aits-uk.net

15 years practical IT experience from sales to support to development plus B.Sc. (Hons) Computer Studies, fluent German speaker, willing to have a go at anything and don't suffer fools gladly !

 

[foxdev]

You're going to have to open it for Write, so 2 or 12 will be required.

Second, be sure you FSEEK to the end of the file before writing. Robert Bradley

http://www.foxdev.com/

Do you have too much money? Visit

http://www.agrainofhope.org

 

[jonscott8]

I'd also recommend you reasearch the STRTOFILE() function with lAdditive argument. For Example,

=STRTOFILE(filebuffer,'invoice.csv',.T.)

If invoice.csv doesnt exist, its created. If it does exist, the contents of filebuffer is appended to it. Jon Hawkins

The World Is Headed For Mutiny,
When All We Want Is Unity. - Creed

 

[tennessee]

if file(whatever)
fopen(whatever)
fseek(fhandle,2,0) && look in help for fseek
* then fputs()
else
fcreate()
endif