Schnelles auslesen einer Datei
Verfasst: 20.02.2010 16:40
Hallo,
Ich würde gerne wissen welche Variante beim Auslesen einer Datei (bis zu 10 MB) schneller ist und dies merklich.
Das Problem ist, das ich eine Datei habe in der alle 1-3 Minuten Daten geschrieben werden die ich hier und da überprüfen muss. Daher kommt es vor das ich gerade Daten auslese und in der gleichen Zeit Daten in die Datei geschrieben werden sollen. Wenn das Programm welches die Daten hineinschreibt dies nicht kann, da die Datei geöffnet ist, bleibt es mit einer Fehlermeldung stehen, da es leider diesbezüglich nicht abgesichert wurde. Daher, um die Zeit in der die Datei offen ist so kurz wie möglich zu halten, meine Frage.
Ich würde gerne wissen welche Variante beim Auslesen einer Datei (bis zu 10 MB) schneller ist und dies merklich.
Code: Alles auswählen
#File = "Info.txt"
NewList FileDS.s()
*MemoryID.l
FileData.s
;1)
If ReadFile(0, #File)
While Eof(0) = 0
AddElement(FileDS()): FileDS() = ReadString(0)
Wend
CloseFile(0)
EndIf
;2)
If ReadFile(0, #File)
*memoryID = AllocateMemory(Lof(0))
ReadData(0, *MemoryID, Lof(0))
CloseFile(0)
EndIf