Grazie Oregon,
funziona perfettamente.
Mi capita però di avere una stringa anche più lunga di 4 righe.
E' possibile eseguire il comando in modo tale da portare a capo ogni 26 campi fino alla fine della stringa?
Avevo provato questo script ma ovviamente non mi genera un nuovo file...


Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Test.txt", ForReading)

strContents = objFile.ReadAll
objFile.Close

i = False

Do Until i = True
intLength = Len(strContents)
If intLength < 26 Then
Exit Do
End If
strLines = strLines & Left(strContents, 26) & vbCrLf
strContents = Right(strContents, intLength - 26)
Loop

Wscript.Echo strLines