Thema Datum  Von Nutzer Rating
Antwort
Rot Datei vorhanden? Wenn ja Inhalt auslesen und neu speichern
 08.05.2014 14:10:15 CoffeeJunkee
NotSolved
08.05.2014 21:34:12 Gast74844
NotSolved

Ansicht des Beitrags:
Von:
CoffeeJunkee		 Datum:
08.05.2014 14:10:15		 Views:
750		 Rating:
     
Antwort:
  Ja
Thema:
Datei vorhanden? Wenn ja Inhalt auslesen und neu speichern

Hallo!

Ich sitze schon eine ganze Weile an einem bestimmten Punkt und komme nicht weiter :-/
Ich will eine Schleife schreiben, in welcher überprüft wird, ob eine Datei bereits vorhanden ist. Wenn ja, soll der Inhalt in einer neuen Variable gespeichert werden, damit etwas neues angehängt werden kann. Die neue Variable ist nötig, da die Inhalte als "Ausgabetext" deklariert sind und sie sonst immer wieder überschrieben werden. Wenn keine Datei vorhanden ist, soll eine erstellt werden und der "Ausgabetext" dort reingeschrieben werden. Ich hoffe das ist halbwegs verständlich. face-wink Soweit bin ich bis jetzt:

 DateiPfad = ThisWorkbook.Path
            'dateipfad& "\" & spname & ".txt"
            Dateinummer = FreeFile
                If Dir(DateiPfad & "\" & spname & ".txt") = "" Then
                    Open DateiPfad & "\" & spname & ".txt" For Append As #Dateinummer
                    Write #Dateinummer, Ausgabetext
                    Close #Dateinummer
                    'Ausgabetext = Zwischenablage
                    ''Ausgabetext = Space(LOF(Dateinummer))
                Else
                    Open DateiPfad & "\" & spname & ".txt" For Append As #Dateinummer
                    ''Get #Dateinummer, 1, Ausgabetext
                    ''Write #Dateinummer, Ausgabetext
                    While Not EOF(Dateinummer)
                        Line Input #Dateinummer, Ausgabetext
                        Zwischenablage = Ausgabetext
                        Ausgabetext = ""
                        'Get #Dateinummer, 1, Ausgabetext
                    Wend
                    Close #Dateinummer

Kann mir da jemand behilflich sein??? Danke!

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Datei vorhanden? Wenn ja Inhalt auslesen und neu speichern
 08.05.2014 14:10:15 CoffeeJunkee
NotSolved
08.05.2014 21:34:12 Gast74844
NotSolved