Hallo zusammen
muss mich wieder melden, der Auftraggeber möchte eine Änderung am Script.
Er möchte, dass das Script ohne diese Counter Datei funktioniert. Hab mich jetzt ein klein wenig mit dem Script auseinandergesetzt, jedoch kam ich nicht sehr weit. Ich hab es bereits zu Stande gebracht, dass er die Zahl aus der Originaldatei ausliest, und auch ersetzt, jedoch fällt dann der ganze Rest weg. So, dass am Schluss nur die ersetzte Zahl in der Datei steht, was mir nicht viel bringt.
Hier mal mein aktueller Code:
Set MyFiles = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2
varDatei="U:\officeatwork_Script\michelgruppech.owp"
Set f = MyFiles.OpenTextFile(varCntDatei, ForReading)
varCount = f.ReadAll
varCountNeu = varCount +1
Set f = MyFiles.OpenTextFile(varDatei, ForWriting, True)
f.Write varCountNeu
varSearch="<Version>" & varCount & "</Version>"
varReplace="<Version>" & varCountNeu & "</Version>"
Set f = MyFiles.OpenTextFile(varDatei, ForReading)
Text = f.ReadAll
Set f = MyFiles.OpenTextFile(varDatei, ForWriting, True)
f.Write Replace(Text, varSearch, varReplace,1,-1,1)
Vielen Dank schon im Voraus...