Die Frage, wie man den Inhalt einer Textbox speichert und wieder ausliest wurde schon in einem früheren Beitrag behandelt. Was aber nun, wenn man den Inhalt einer Textbox an eine bereits bestehende Datei anhängen will? Ganz einfach: man öffnet die bestehende Datei nicht mit "Open ... For Output" sondern mit "Open ... For Append" (append = anhängen). Beispiel: Dim sFile As String Dim F As Integer sFile = App.Path & "\DeinFile.txt" F = FreeFile Open sFile For Append As #F Print #F, "Dein Text" Close #FMit Open... For Output wird eine neue Datei zum Schreiben geöffnet. Sollte die Datei bereits existieren, wird der Inhalt dadurch gelöscht. Append erstellt die Datei, falls sie noch nicht existiert - ansonsten wird die Datei automatisch für das "Anfügen" von Daten im sequentiellen Modus geöffnet. Diese Seite wurde bereits 28.991 mal aufgerufen. |
sevISDN 1.0 ![]() Überwachung aller eingehender Anrufe! Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Buchempfehlung Tipp des Monats ![]() Dieter Otter sevTabStrip: Rechtsklick auf Reiter erkennen Eine Funktion, mit der sich prüfen lässt, auf welchen Tab-Reiter ein Mausklick erfolgte sevZIP40 Pro DLL ![]() Zippen und Unzippen wie die Profis! Mit nur wenigen Zeilen Code statten Sie Ihre Anwendungen ab sofort mit schnellen Zip- und Unzip-Funktionen aus. Hierbei lassen sich entweder einzelnen Dateien oder auch gesamte Ordner zippen bzw. entpacken. |
||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |