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

[oregon]

Ok, non è all'inizio, ma sempre il secondo campo come hai mostrato?

Se è così, puoi usare questa versione di codice (la tua tenta di scrivere nel file di input ...)

Const ForReading = 1
str_input = ""
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oInFile = oFSO.OpenTextFile("test.txt", ForReading)
Set oOutFile = oFSO.CreateTextFile("test2.txt", True)
Do Until oInFile.AtEndOfStream
	str_input = oInFile.ReadLine
	flds = Split(str_input, ";")
	flds(1) = Trim(Left(flds(1), len(flds(1))-5))
	for each f in flds
		oOutFile.Write f & ";"
	next 
	oOutFile.WriteLine 
Loop
oInFile.Close
oOutFile.Close
set oFSO = nothing
WScript.echo "ok"