Schade das keiner eine Antwort für mich hat,
ich erkläre das noch mal.
Es geht um folgenden Script:
Set MyFiles = CreateObject("Scripting.FileSystemObject")
varDatei="C:\a.txt"
Set f = MyFiles.OpenTextFile(varDatei, 1)
Text = f.ReadAll
varSearch="AAAAAA"
varReplace="BBBB"
Set f = MyFiles.OpenTextFile(varDatei, 2, True)
f.Write Replace(Text, varSearch, varReplace,1,-1,1)
Es ersetzt die Wörter AAAAAA durch BBBB in einer Textdatei C:\a.txt
Es kann aber nur ein Wort suchen u. ersetzen, ich möchte aber mehrere gleichzeitig suchen u. ersetzen.
Befinden sich im Gesuchten Wort „“ Gänsefüßchen was bei meiner Textdatei oft vorkommt, schmeißt das Script nur noch eine Fehlermeldung.
Wörter suchen die über ein Zeilenumbruch gehen kann das Script auch nicht :cry:
Hat jemand eine Idee was ich am Script ändern kann?
Gruß
Gringo123