Alternative AddLine (append) for text files
Posted: Fri Nov 30, 2001 8:31 pm
Code updated for 5.20+
Restored from previous forum. Originally posted by PB.
This is my version of an AddLine (append) procedure for text files.
Restored from previous forum. Originally posted by PB.
This is my version of an AddLine (append) procedure for text files.
Code: Select all
Procedure AddLine(file$,line$)
s.q=FileSize(file$) : If s=-1 : s=0 : EndIf
f=OpenFile(#PB_Any,file$)
If f : FileSeek(f,s) : WriteStringN(f,line$) : CloseFile(f) : EndIf
If FileSize(file$)<>s : ok=1 : EndIf
ProcedureReturn ok
EndProcedure
Debug AddLine("e:\test.txt","hello!")