Office: (Office 2010) Text via VBA in Textdatei (txt) suchen und ersetzen

Hallo Leute

Ich habe hier ein kleines(!) Problem mit mehreren Txt-Dateien.

In einem Ordner (fix) sind mehrere Text-Dateien (>150) gespeichert. Diese wurden fehlerhalft erstellt.

Sowohl der Dateiname als auch ein Teil des Inhaltes.
Dateiname IST „F050.o8.018_21_4_2017_15_5_25“ – wobei hier das „o8“ falsch ist.
Dies sollte in SOLL „F050.08.018_21_4_2017_15_5_25 geändert werden.

Das gleiche im Inhalt
Inhalt IST „F050.o8.018“ – wobei auch hier das „o8“ falsch ist.
Dies sollte in SOLL „F050.08.018 geändert werden.

Nun habe ich ein Programm gefunden das dies genauso macht – nur mit einzigen Mango, dass ich die „fspenTextFile“-Angabe händisch ändern müsste.
Code:

Kurzum, wie müsste das Makro in einer Schleife aussehen um alle Txt-Dateien zu ändern?

Ich danke Euch schon mal im Voraus für Eure Hilfe.

Gruss Klaus

:)

 

Hallo Klaus *wink.gif*

Probier mal!

Gruss Poltergeist

Code:

Code:

Code:

 

Hallo,

so ganz freihändig und ungetestet:

PHP:

         Sub aendern()
iPath = "C:temp" '<<<<<< anpassen
iFile = dir(iPath & "F050*.txt")
do while len(iFile)
if instr(iFile, ".o8.") > 0 than
iFile_neu = Replace(iFile, "o8", "08")
'dann wie das gezeigte Script, aber mit iFile bei "open" und iFile_neu bei "save"
end if
iFile = dir
end sub
loop


 

Hallo zusammen,

vorerst mal ein dickes Dankeschön für die schnelle Bearbeitung.
Nur ab ich trotzdem noch einige Probleme damit.

@Poltergeist
Dein Code bleibt bei Code:

mit der Fehlermeldung 53 - "Datei nicht gefunden" stehen.

Die Variable "DateiName" und "ForInput" sind befüllt mit dem Dateinamen bzw. mit 1.

An was kann dies noch liegen?


@Fennek11
Bei Deinem Code komme ich nicht klar. Könntest Du mir den Code so anzeigen wie es du gemeint hast.

An Euch bei vielen Dank für´s helfen.

Gruss Klaus

 

Hallo zusammen,

könnte mir jemand eine Schleife um meinen ersten Code erstellen? Damit wäre das Problem erledigt.

Im voraus vielen Dank

Gruss Klaus

 

Hallo Klaus *wink.gif*

Habe es nun auch getestet *Smilie

Gruß Poltergeist *biggrin.gif*

Code:

Code:

Code:

 

Hallo Poltergeist,

funktioniert prima.
Nun muss Du mir noch sagen/zeigen wie ich den Dateien-Namen, der auch falsch angelegt wurde, ändere. Dann wäre es perfekt *wink.gif*

Gruss Klaus