Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: txt Datei erstellen
Autor: Noti
Datum: 18.03.04 15:42
Hi Patti, Folgender Code: Sub SchreibeVariablenInhalt(Variable as variant, Datei as string, NeuErstellen as Boolean) Dim Buffer as string, FF as integer FF = FreeFile() Buffer = Daten aus der Variable If NeuErstellen then Open Datei For Output As #FF else if Dir(Datei) > "" then Open "Datei.Txt" For Append As #FF else Open Datei For Output As #FF end if endif Print #FF, Buffer Close #ff End Sub erzeugt dir eine einfache Textdatei. Dabei wird der Inhalt aus deiner übergebenen Variable in die Textdatei geschrieben. Mit der Boolean-Variable NeuErstellen, kannst du entscheiden, ob die angegebene Datei neu erstellt werden soll, oder der Inhalt der übergebenen Variable einfach an eine eventuell vorhandene Datei angehängt werden soll. Aufruf: SchreibeVariablenInhalt("Das ist eine Test", "C:\Test.Txt", True) SchreibeVariablenInhalt("Noch ein Test", "C:\Test.Txt", False) mfg. Noti

txt Datei erstellen	725	Patti0815	16.03.04 19:56
Re: txt Datei erstellen	435	Wolfgang	16.03.04 19:58
Re: txt Datei erstellen	496	Noti	18.03.04 15:42

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen