Eagle71

Ich glaube PowerShell wäre jetzt erstmal aufwendiger mich einzuarbeiten und mit einer Datei die ich aufrufen kann, komme ich irgendwie besser klar... Hier wäre meine Lösung in jeder Datei eines Verzeichnisses einen String auszutauschen. Könnte man bestimmt noch hübscher machen, aber es funktioniert ;) Jetzt versuche ich mal eine Lösung für "blinde" Änderungen an einer bestimmten Stelle zu machen. Hätte da jemand evtl. eine Idee für mich? Dim VarOld 'Alter Text' Dim VarNew 'Neuer Text' Dim VarLoc 'Pfad des Verzeichnisses' VarOld = "06F01001T6JUN3165" VarNew = "20201008" VarLoc = "J:\VBScript\Test\" Call allctlFiles(VarLoc) MsgBox "Durchlauf beendet" Function allctlFiles(Pfad) 'aufzurufen mit Call allctlFiles("DEIN ORDNER PFAD")' Set fso = CreateObject("Scripting.FilesystemObject") Set Folder = fso.GetFolder(Pfad) For Each File In folder.Files 'Hier können nun Funktionen aufgerufen werden' Set MyFiles = CreateObject("Scripting.FileSystemObject") Set f = MyFiles.OpenTextFile(varLoc&File.name, 1) Text = f.ReadAll Set f = MyFiles.OpenTextFile(varLoc&File.name, 2, True) f.Write Replace(Text, VarOld, VarNew,1,-1,1) Next End Function

So, neuer Tag, neuer Versuch :) Vielen Dank erstmal für die ganze Hilfe! Ich werde dann mal weiter probieren und mich bei den nächsten Fehlversuchen wieder melden ;)

Mir geht es darum mich darin einzuarbeiten und auch zu verstehen, was ich da tue... Wahrscheinlich werde ich Zukunft öfter Dateien ändern müssen und da möchte ich mich dann auskennen wie ich das tue. Wenn PowerShell ein besseres Werkzeug dafür ist, ist das auch schon ein Hinweis für mich und ich kann versuchen mich dort einzuarbeiten ;)

Ich habe gerade einen neuen Job bekommen und sitze vor einigen Tausend Dateien mit falschen Chargen Nummern :( Nun muss ich mich darum kümmern diese zu korrigieren... Mein Aktueller Ansatz war nun erstmal eine spezielle Datei mit suchen und ersetzen zu ändern: Set MyFiles = CreateObject("Scripting.FileSystemObject") varDatei="E:\VBScript\Test\04706237.xml" Set f = MyFiles.OpenTextFile(varDatei, 1) Text = f.ReadAll varSearch="06F01001T6JUN3165" varReplace="20201008" Set f = MyFiles.OpenTextFile(varDatei, 2, True) f.Write Replace(Text, varSearch, varReplace,1,-1,1) MsgBox "Durchlauf beendet" Wie kann ich nun als nächsten Schritt von einer Datei zu allen Dateien im Verzeichnis kommen?

Hallo ! ich bin noch vollkommen neu und suche eine Möglichkeit eine bestimmte Zeile aller xml Dateien eines Verzeichnisses zu ändern. Also: - Öffne die erste Datei in Verzeichnis C:\Test - Ersetzte Zeile 12 durch "abcdef" - Speichere die Datei (die vorhandene Datei überschreiben, oder die Datei neu in einem Unterverzeichnis speichern) - Schleife solange weitere Dateien im Verzeichnis sind: - Öffne dir nächste Datei - Ersetzte Zeile 12 durch "abcdef" Ende Ist das auch überhaupt so möglich? Vielen Dank für eure Hilfe! Markus