Kleines Problem beim Textgadget!

[FISCHAUGE]

Ich habe folgendes problem:

Code: Alles auswählen

If EventMenuID()=34
d=ReadFile(1, "vehicle\fav.dat") 
If d 
While Eof(1)=0 
fav$ = fav$+ReadString()+Chr(13)+ Chr(10) 
Wend 
CloseFile(1) 
ImageGadget(2, 450,150,100,83,UseImage(30),#PB_Image_Border)
SetGadgetText(1,"")
SetGadgetText(1, fav$) 
Else 
MessageRequester("Fehler","Datei nicht gefunden!.",#MB_ICONERROR) 
EndIf 
EndIf  

Wenn ich diese Datei über mein Menü aufrufe, liest er die Datei "fav.dat" aus, und schreibt mir den inhalt in mein TextGadget!
Wenn ich aber nocheinmal diese Dateiaufrufe, schreibt er mir nocheinmal denn Inhalt darunter und immer so weiter!

Meine Frage wie kann man das verhindern?

[vonTurnundTaxis]

Code: Alles auswählen

If EventMenuID()=34
d=ReadFile(1, "vehicle\fav.dat")
If d
fav$ = "";Hier wurde was geändert!
While Eof(1)=0
fav$ = fav$+ReadString()+Chr(13)+ Chr(10)
Wend
CloseFile(1)
ImageGadget(2, 450,150,100,83,UseImage(30),#PB_Image_Border)
SetGadgetText(1,"")
SetGadgetText(1, fav$)
Else
MessageRequester("Fehler","Datei nicht gefunden!.",#MB_ICONERROR)
EndIf
EndIf  

[FISCHAUGE]

Vielen Dank funktioniert super!!!