Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Textdatei öffnen
Autor: darth roli
Datum: 19.08.04 12:48
Hallo Leute, möchte zwei Textdateien öffnen. Eine für Input, die andere für append. Der Zweck meiner Programmierung ist das ich immer den ersten Datensatz löschen möchte. Funktionieren soll das so, das wenn ich die Textdatei für Input geöffnet habe ich eine weitere Textdatei für append öffnen möchte. Das ganze funktioniert nicht, und ich weiss auch nicht warum. Kann mir jeman weiterhelfen.? Hier mein Code: Public Const PfadTestErg As String = "P:/Daten/Hochres22.txt" Public Const PfadHilfsDatei As String = "P:/Daten/HochresHilfe22.txt" Open PfadTestErg For Input As #DnrTestErg While Not EOF(DnrTestErg) zähler = zähler + 1 Line Input #DnrTestErg, TestErgDaten If zähler = 1 Then ErsteZeile = TestErgDaten Else 'Hilfsdatei erstellen, erste Zeile wird nicht übernommen--->gelöscht Open PfadHilfsDatei For Append As #DnrHilfe Print #DnrHilfe, TestErgDaten Close #DnrHilfe End If Wend Close #DnrTestErg 'Textdatei löschen wenn nur ein Datensatz vorhanden war If zähler = 1 Then Kill PfadTestErg Else 'Hilfsdatei in Originaldatei kopieren FileCopy PfadHilfsDatei, PfadTestErg 'Hilfsdatei löschen Kill PfadHilfsDatei End If Vielen Dank schon mal im Voraus mfg. darthRoli

Textdatei öffnen	746	darth roli	19.08.04 12:48
Re: Textdatei öffnen	365	darth roli	19.08.04 13:27

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