Alternative AddLine (append) for text files

BackupUser · Post by **BackupUser** » 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.

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!")