keine leere Zeile beim speichern in datei unter VB

Seite 1 von 1 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/keine_leere_zeile_beim_speichern_in_datei_unter_vb_43241/page_1 - zur Vollversion wechseln!


jayjay schrieb am 04.08.2002 um 17:48

Folgendes Problem:
Wenn ich, ganz primitiv, den Inhalt einer Textbox in eine Datei schreiben möchte, bekomm ich jedesmal beim reinschreiben einen vbvrlf angehängt, also wenn der Text so lautet:

aaa
aaa

dann ist er beim nächsten Mal
aaa
aaa


so, also eine Zeile mehr :( ICh weiß, is dumm erklärt :D
hier, wie ich es mache:
Ach ja, und ich hab auch schon vbback versucht, aber dann bekomme ich nur dieses Zeichen, anstatt dem Zurückschritt: |


Open dateii For Output As #frei
Print #frei, Trim(txtnotiz.Text)
Close #frei


watchout schrieb am 04.08.2002 um 23:19

??
was meinst mit nächstes mal?? ich denke du musst das genauer beschreiben...;)


jayjay schrieb am 05.08.2002 um 08:16

naja, ich mein mit nächstes Mal, dass einfach ein ENTER hinzugefügt wird beim speichern, und beim nächsten Mal aufrufen bzw. wenn man in dieDatei schaut, is halt die Zeile schon dabei...


watchout schrieb am 07.08.2002 um 07:47

kann ich jetzt so nicht beantworten... need more input ;)


jayjay schrieb am 08.08.2002 um 08:58

Zitat von watchout
kann ich jetzt so nicht beantworten... need more input ;)
HAb den Fehler schon gefunden, weiß aber noch niicht wirklich, wie ich ihn wegbekomme, es liegt nicht am speichern, sondern am laden....


Open dateii For Input As #1
While Not EOF(1)
Line Input #1, inhalt
txtnotiz.Text = txtnotiz.Text + inhalt + vbCrLf
Wend
Close #1


So wird zum Schluss ein vbcrlf angehängt, sodas beim speihcern natürlich immer eine Zeile mehr dazukommt, wenn man nichts ändert. Wie soll ich das umändern:confused:


Yeahman schrieb am 08.08.2002 um 09:27

prüfen ob schon ein EOF daherkommen wird der die Schleife beendet, und dementsprechendes IF rein, das halt im Falle von nicht EOF +vbCrLf noch dazuhängt.


jayjay schrieb am 08.08.2002 um 10:08

danke! Die einfachsten Lösungen sind halt immer noch die besten ;) :cool:




overclockers.at v4.thecommunity
© all rights reserved by overclockers.at 2000-2025