Datei auslesen/Daten hinzuschreiben
Verfasst: 12.07.2008 15:15
Hallo
erstmal der Code:
Problem an der Sache: es werden auch andere Zeichen als gewünscht dazugeschrieben, und zwar nach "Logfile"
Die Datei besteht dann z.b aus folgenden Inhalt:
PS: Ein FreeMemory verschlimmert die Sache noch --> es werden noch mehr sinnlose Zeichen angehängt
Wieso???
lg
erstmal der Code:
Code: Alles auswählen
#file=1
CreateFile(#file, "C:\logfile.time")
WriteString(#file, "Logfile")
CloseFile(#file)
For i = i To 20
;Datei auslesen
If ReadFile(#file, "C:\logfile.time")
laenge = Lof(#file)
If laenge
*Speicher = AllocateMemory(laenge)
ReadData(#file, *Speicher, laenge)
Inhalt$ = PeekS(*Speicher)
EndIf
MessageRequester("Inhalt", Inhalt$)
CloseFile(#file)
Else
MessageRequester("Fehler", "Logfile konnte nicht gefunden werden. Starten Sie die Anwendung bitte erneut", #MB_ICONERROR)
End
EndIf
;Neuen Inhalt dazuschreiben
If OpenFile(#file, "C:\logfile.time")
WriteStringN(#file, Str(Random(60)) + Chr(58) + Str(Random(60)) + Chr(58) + Str(Random(60)))
WriteString(#file, Inhalt$)
CloseFile(#file)
Else
MessageRequester("Fehler", "Logfile konnte nicht gefunden werden. Starten Sie die Anwendung bitte erneut", #MB_ICONERROR)
End
EndIf
NextDie Datei besteht dann z.b aus folgenden Inhalt:
wobei auch die letzten Zeichen immer variieren...13:21:43
30:24:33
8:5:60
30:58:45
39:25:0
59:27:17
45:6:17
20:10:6
17:59:24
23:13:34
7:47:28
45:49:14
14:50:37
55:18:24
11:41:32
53:53:19
31:37:7
36:42:58
37:28:35
15:52:14
48:55:1
Logfile*íÀ‡
PS: Ein FreeMemory verschlimmert die Sache noch --> es werden noch mehr sinnlose Zeichen angehängt
Wieso???
lg
