Hi!
Frage:
Wie kann ich den Text1.Text der aus allen möglichen Zeichen besteht in eine Textdatei von oben hinzufügen (quasi wie eine Historie) und bei Form_Load wieder in Text1.Text schreiben lassen?
Bisher scheitere ich immer am 1. Komma. Alles was danach in Text1.Text vorkommt, wird nicht mehr in die Datei geschrieben.
Danke
Hallo Vino,
Wie kann ich den Text1.Text der aus allen möglichen Zeichen
besteht
aber alle im Bereich 32-255?
in eine Textdatei von oben hinzufügen (quasi wie eine
Historie)
Ich wüßt nicht daß bei einer Historie der neueste Eintrag „oben“ wäre.
Anyway, öffne die Textdatei, lese sie Satzweise ein in ein Array, dann schließt du sie, öffnest sie erneut für Output, schreibst den neuen Text rein, dann die vorher eingelesen Sätze.
Gibt auch die Möglichkeit mit zwei Dateien zu arbeiten und nachher eine zu löschen und die andere umzubennen.
Bisher scheitere ich immer am 1. Komma.
Mir erstmal unklar warum. Zeige mal bitte den Code.
Falls überhaupt nötig, kann das grad nicht abschätzen lad halt eine Beispiel-Textdatei hoch mit rapidshare, siehe FAQ:2606
Gruß
Reinhard
Die Zeichen sollen halt , ; # - + * etc sein…
Das was ich bisher als Code habe ist folgendes…
Zum schreiben:
Dim Test
Test = Text1.Text
Close
Open "test.txt" For Output As #1
Print #1, Test
Close
Zum auslesen:
Dim Test
Close
Open "test.txt" For Input As #1
Input #1, Test
Close
Text1.Text = Test
Beim auslesen wird dann alles hinter dem ersten Komma abgeschnitten.
Hallo Vino,
nimm mal zum Einlesen:
Line Input #1, Test
Gruß
Reinhard
gerade getestet…
Bei Line Input #1 wird aber nur die erste Zeile eingelesen. Wie kann ich sämtliche Zeilen einlesen lassen?
Bei Line Input #1 wird aber nur die erste Zeile eingelesen.
Wie kann ich sämtliche Zeilen einlesen lassen?
Hallo Vino,
wie gesagt, zeig mal Code oder die datei.
Gruß
Reinhard
Dim Test
Close
Open „test.txt“ For Input As #1
Line Input #1, Test
Close
Text1.Text = Test