[VBS] Sostituire stringa utilizzando RegEx in un file di testo

[[trodat]]

Ciao a tutti.

Il file di testo expiration.txt contiene 197.015 righe.

Per ciascuna riga ho la necessità di sostituire :

1. 2020-03-01 13:33 >>> 2020-03-01
2. 2020-02-01 08:45 >>> 2020-02-01
3. 2020-01-01 11:30 >>> 2020-01-01
4. ...
5. ...
6. 2018-01-01 12:40 >>> 2018-01-01 (questa è l'ultima riga numero 197.015 )

Questo è il codice che sto provando, che però non funziona.

Non dà errori, ma la sostituzione non avviene, il file rimane nel formato iniziale.

Come posso risolvere.

Grazie.

[COLOR=var(--blue-800)]Const[/COLOR][COLOR=var(--black-750)] ForReading [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]1[/COLOR]

[COLOR=var(--blue-800)]Const[/COLOR][COLOR=var(--black-750)] ForWriting [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]2[/COLOR][COLOR=var(--black-750)]
intCount [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]0[/COLOR][COLOR=var(--black-750)]
intIndex [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]1[/COLOR][COLOR=var(--black-750)]
[/COLOR][COLOR=var(--blue-800)]Set[/COLOR][COLOR=var(--black-750)] oFSO [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)] CreateObject[/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--red-800)]"Scripting.FileSystemObject"[/COLOR][COLOR=var(--black-750)])[/COLOR][COLOR=var(--black-750)]
str_input [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]""[/COLOR][COLOR=var(--black-750)]
[/COLOR][COLOR=var(--blue-800)]Set[/COLOR][COLOR=var(--black-750)] oInFile [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)] oFSO[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]OpenTextFile[/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--red-800)]"expiration.txt"[/COLOR][COLOR=var(--black-750)],[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]1[/COLOR][COLOR=var(--black-750)])[/COLOR][COLOR=var(--black-750)]
str_input [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)] oInFile[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]ReadAll[/COLOR][COLOR=var(--black-750)]()[/COLOR][COLOR=var(--black-750)]
[/COLOR][COLOR=var(--blue-800)]Set[/COLOR][COLOR=var(--black-750)] oRegEx [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)] CreateObject[/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--red-800)]"VBScript.RegExp"[/COLOR][COLOR=var(--black-750)])[/COLOR][COLOR=var(--black-750)]
[/COLOR][COLOR=var(--blue-800)]With[/COLOR][COLOR=var(--black-750)] oRegEx
    [/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]Multiline [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]True[/COLOR][COLOR=var(--black-750)]
    [/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]Global [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]True[/COLOR][COLOR=var(--black-750)]
    [/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]Pattern [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]"(\d+)-(\d+)-(\d+)\s(\d+):(\d+):(\d+);"[/COLOR][COLOR=var(--black-750)]
[/COLOR][COLOR=var(--blue-800)]End[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--blue-800)]With[/COLOR][COLOR=var(--black-750)]
[/COLOR][COLOR=var(--blue-800)]Do[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--blue-800)]Until[/COLOR][COLOR=var(--black-750)] oInFile[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]AtEndOfStream
str_input [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)] oInFile[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]ReadLine
[/COLOR][COLOR=var(--blue-800)]If[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--black-750)]intCount [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]0[/COLOR][COLOR=var(--black-750)])[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--blue-800)]Then[/COLOR][COLOR=var(--black-750)]
   str_input [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)] oRegEx[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]Replace[/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--black-750)]str_input[/COLOR][COLOR=var(--black-750)],[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]"$1-$2-$3;"[/COLOR][COLOR=var(--black-750)])[/COLOR][COLOR=var(--black-750)]
   [/COLOR][COLOR=var(--blue-800)]Set[/COLOR][COLOR=var(--black-750)] oInFile [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)] oFSO[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]OpenTextFile[/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--red-800)]"expiration.txt"[/COLOR][COLOR=var(--black-750)],[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]2[/COLOR][COLOR=var(--black-750)])[/COLOR][COLOR=var(--black-750)]
   oInFile[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]Write str_input
   oInFile[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]Close
[/COLOR][COLOR=var(--blue-800)]End[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--blue-800)]If[/COLOR][COLOR=var(--black-750)]
intCount [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)] intCount [/COLOR][COLOR=var(--black-750)]+[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]1[/COLOR][COLOR=var(--black-750)]
[/COLOR][COLOR=var(--blue-800)]If[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--black-750)]([/COLOR][COLOR=var(--black-750)]intCount [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]200[/COLOR][COLOR=var(--black-750)])[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--blue-800)]Then[/COLOR][COLOR=var(--black-750)]
    intCount [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]0[/COLOR][COLOR=var(--black-750)]
    intIndex [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)] intIndex [/COLOR][COLOR=var(--black-750)]+[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]1[/COLOR][COLOR=var(--black-750)]
    oInFile[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]Close
[/COLOR][COLOR=var(--blue-800)]End[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--blue-800)]If[/COLOR][COLOR=var(--black-750)]
[/COLOR][COLOR=var(--blue-800)]Loop[/COLOR][COLOR=var(--black-750)]
oInFile[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]Close
[/COLOR][COLOR=var(--blue-800)]set[/COLOR][COLOR=var(--black-750)] oFSO [/COLOR][COLOR=var(--black-750)]=[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--red-800)]nothing[/COLOR][COLOR=var(--black-750)][/COLOR][COLOR=var(--black-750)]WScript[/COLOR][COLOR=var(--black-750)].[/COLOR][COLOR=var(--black-750)]echo [/COLOR][COLOR=var(--red-800)]"ok"[/COLOR]