Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Suchen Ersetzen in Dateien

Forumthread: Suchen Ersetzen in Dateien

Suchen Ersetzen in Dateien
11.02.2003 15:33:24
Stefan
Hi, zusammen.
Ich versuche gerade, mehrere Zeilen aus einer Textdatei per VBA aus dieser Datei in eine andere Datei einzufügen, wobei ich ein bestimmtes Schlüsselwort in der Zieldatei durch die Zeilen aus der Quelldatei ersetzen möchte.
Habt ihr vielleicht 'nen guten Vorschlag?

Ach ja, wenn ich schon dabei bin:
Als nächstes müsste ich bestimmte Stellen der Textdatei durch die Inhalte verschiedener Excel-Tabellenfelder ersetzen.
Wäre nett wenn ihr mir helfen könntet.
Danke schonmal!

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Suchen Ersetzen in Dateien
11.02.2003 15:46:48
Michael Scheffler

Hallo,

schau Dir mal den Hilfe-Text zu Line Input an, etwas abwandeln:
Dim Textzeile
Open "DATEI1" For Input As #1 ' Datei öffnen.
Open "DATEI2" For Output As #1 ' Datei öffnen
Do While Not EOF(1) ' Schleife bis Dateiende.
Line Input #1, Textzeile ' Zeile in Variable einlesen.
Textzeile = Replace(Textzeile,"Finde","Ersetze" ' Esetzen
Print #2, Texteile
Loop
Close #1 ' Datei schließen.
Close #2 ' Datei schließen.

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige