daten aus datei lesen in dim speichern und wieder (ERLEDIGT)

Übersicht

BlitzBasic

Allgemein

	dominik Betreff: daten aus datei lesen in dim speichern und wieder (ERLEDIGT)	Sa, Jul 10, 2004 19:17 Antworten mit Zitat
also des ding soll wie ihr ja hoffentlich auch selber erkennen könnt daten aus einer datei lesen sie bis auf eine bestimmte in einem feld speichern und wier in die datei schreiben. aber leider werden alle ausgelesen daten wireder in die datei geschreiben, also muss der fehler irgentwo beim "aussorietren" sein. Code: [AUSKLAPPEN] [EINKLAPPEN] Function verboten_loeschen() ausgewaehlter_eintrag_index = SelectedGadgetItem(verbotene_liste) ausgewaehlter_eintrag_text = GadgetItemText(verbotene_liste, ausgewaehlter_eintrag_index ) ;alle auf 0 setzen For i = 0 To 100 verb_seiten_speicher$(i) = 0 Next ;alte einlesen i = 0 dateiverb = ReadFile("vliste.dat") While Not Eof(dateiverb) zeile$ = ReadLine$(dateiverb) If zeile$ <> ausgewaehlter_eintrag_text Then verb_seiten_speicher$(i) = zeile$ <<<<<<<<<<<<< hier muss der fehler sein i = i + 1 Wend CloseFile dateiverb ;nicht gelöschte wieder in datei schreiben datei$ = WriteFile("vliste.dat") For i = 0 To 100 If verb_seiten_speicher$(i) > 0 Then Notify verb_seiten_speicher$(i) WriteLine datei$, verb_seiten_speicher$(i) EndIf Next CloseFile dateiverb RemoveGadgetItem verbotene_liste, ausgewaehlter_eintrag_index End Function

dominik

Betreff: daten aus datei lesen in dim speichern und wieder (ERLEDIGT)

Sa, Jul 10, 2004 19:17
Antworten mit Zitat

also des ding soll wie ihr ja hoffentlich auch selber erkennen könnt daten aus einer datei lesen sie bis auf eine bestimmte in einem feld speichern und wier in die datei schreiben. aber leider werden alle ausgelesen daten wireder in die datei geschreiben, also muss der fehler irgentwo beim "aussorietren" sein.
Code: [AUSKLAPPEN]

Function verboten_loeschen()
ausgewaehlter_eintrag_index = SelectedGadgetItem(verbotene_liste)
ausgewaehlter_eintrag_text = GadgetItemText(verbotene_liste, ausgewaehlter_eintrag_index )

;alle auf 0 setzen
For i = 0 To 100
verb_seiten_speicher$(i) = 0
Next

;alte einlesen
i = 0
dateiverb = ReadFile("vliste.dat")
While Not Eof(dateiverb)
zeile$ = ReadLine$(dateiverb)
If zeile$ <> ausgewaehlter_eintrag_text Then verb_seiten_speicher$(i) = zeile$ <<<<<<<<<<<<< hier muss der fehler sein
i = i + 1
Wend
CloseFile dateiverb

;nicht gelöschte wieder in datei schreiben
datei$ = WriteFile("vliste.dat")
For i = 0 To 100
If verb_seiten_speicher$(i) > 0 Then
Notify verb_seiten_speicher$(i)
WriteLine datei$, verb_seiten_speicher$(i)
EndIf
Next
CloseFile dateiverb

RemoveGadgetItem verbotene_liste, ausgewaehlter_eintrag_index
End Function