AddLineToFile

This code has been declared by its author to be Public Domain code.

AddLineToFile by ThePict

2012

Use it to keep a running record of game progress.

Function AddLineToFile(textline$,file$)
mf3=WriteFile("tmp.txt")
If FileType(file$)=0 Then Goto writelastline
mf2=ReadFile(file$)
Repeat
w$=ReadLine(mf2)
WriteLine(mf3,w$)
Until Eof(mf2)
CloseFile(mf2)
.writelastline
WriteLine(mf3,textline$)
CloseFile(mf3)
CopyFile "tmp.txt",file$
End Function

Comments

_PJ_

2012

This should be a lot quicker,since it jumps to the end of the file and appends a line to it, without having to copy the entire content.

It also negates the reqwuirement for the rather unwieldy "Goto" and Label within a function :)

Function AddLineToFile(textline$,file$)
   mf3=OpenFile(file)
   If (Not(mf3))
      mf3=WriteFile(File)
   End If
   If (Not(mf3))
      DebugLog("Could not write to File: "+file)
   End If   
   SeekFile(mf3,FileSize(file$)-1)
   WriteLine mf3,textline
   CloseFile mf3
End Function

Code Archives Forum