Werte in Datei schreiben

[Stephan Boettcher]

Hallo,

Ich wollte jetzt Daten in eine Datei schreiben, in eine Neue Zeile.
Aber es wird die erste Zeile immer nur ersetzt.
Wie kann ich das machen?

Und dann wollte ich noch zeilen löschen lassen, also ich habe z.B.
test = 123

jetzt soll in der txt datei danach gesucht und gelöscht werden.

Geht das?

Danke

 

[Stephan Boettcher]

keiner ne idee?

 

[Shakie]

Wie schreibst du denn in die Datei rein? Mit Open oder mit dem FilesystemObjekt oder mit einer API?

 

[Stephan Boettcher]

filenumber = Freefile
OPEN "Datei.txt" for Output as #filenumber
Print #filenumber, data
Close #filenumber

 

[Ein_Freund]

Um einer Datei etwas 'anzuhängen', wähle statt 'open... for Output' die Syntax 'open... for Append'.

Um den Inhalt einer Textdatei zu verändern, würde ich den Text auslesen, entsprechend modifizieren und wieder in die Datei schreiben. Ich meine, dass man den Text in der Datei direkt nicht verändern kann, bin mir aber nicht sicher...

 

[Stephan Boettcher]

Hallo,

Ich habe nun den Code:

        Open "C:\playlist.txt" For Append As #FileNumber
        Print #FileNumber, Text1
        Close #FileNumber

aber das geht nicht, danach steht nichts mehr in der Textdatei?
Kann mir einer helfen?

Danke für eure hilfe

 

[Ein_Freund]

Habe es eben mal getestet und folgender Code funktioniert definitiv:

text1$ = "TEST"

FileNumber = FreeFile

Open "c:\playlist.txt" For Append As #FileNumber
    Print #FileNumber, text1
Close #FileNumber

Jedesmal, wenn ich den Code ausführe, wird der Textdatei "c:\playlist.txt" ein 'TEST' angehängt. Das war doch das, was Du wolltest, oder?!

 

[Stephan Boettcher]

ja,

ich habe ausversehen einen anderen code noch drinne sorry.
jetzt gehts.

Und jetzt die Frage, wenn ich mache:

open "C:\test.txt" for input as #filenumber
input #filenumber, text
Close #filenumber


... ( was müsste ich hier hinzufügen ? )

Open "C:\test.txt" for output as #filenumber
print #filenumber, end_text
Close #filenumber

damit ich dort nach stellen im Text suchen kann und dann eine ganze Zeile lösche?

z.B. :

Text1
Text2
Text3
Text4

Jetzt gebe ich z.b. in ein Textfeld ein:

Text3

dann soll Text3 entfernt werden:

Text1
Text2
Text4

Danke dir !

 

[Ein_Freund]

Einfach die Datei Zeile für Zeile auslesen, und die Zeilen in einem Array speichern. Dann die entsprechende Zeile ändern und die Datei mit den neuen Daten erneut füllen...

 

[Stephan Boettcher]

ok danke dir werde es mal ausprobieren.

Wenn ich probleme habe melde ich mich nochmals.