How can I prevent that?
Code: Select all
If Exists("notat.dat")
OpenFile(1, "notat.dat", #MODE_READ)
notat$, len = FileToString("notat.dat")
CloseFile(1)
EndIf
OpenFile(1, "notat.dat", #MODE_WRITE)
WriteLine(1, notat$)
CloseFile(1)
Code: Select all
If Exists("notat.dat")
OpenFile(1, "notat.dat", #MODE_READ)
notat$, len = FileToString("notat.dat")
CloseFile(1)
EndIf
OpenFile(1, "notat.dat", #MODE_WRITE)
WriteLine(1, notat$)
CloseFile(1)
Code: Select all
If Exists("notat.dat")
OpenFile(1, "notat.dat", #MODE_READ)
notat$ = ReadLine(1)
CloseFile(1)
EndIf
OpenFile(1, "notat.dat", #MODE_WRITE)
WriteLine(1, notat$)
CloseFile(1)
Code: Select all
If Exists("notat.dat")
notat$, len = FileToString("notat.dat")
EndIf
StringToFile(notat$, "notat.dat")