Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
216to220
216to220
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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!

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

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige