
Originariamente inviata da
optime
quindi tuttapposhto?
Si grazie, tuttapposhto !
Di seguito il codice funzionante... buon we!
codice:
nArr = Array("D1","D2","D3","D4","D5","D6")
Set reP =new RegExp
reP.Pattern ="\"""
For I = 0 To UBound(nArr)
InFilename ="Output_"& nArr(I)&".csv"
Set FILE1 = CreateObject("scripting.FileSystemObject")
Set infile = FILE1.OpenTextFile(InFileName,1,False)
strg = infile.ReadAll
infile.Close
strg = reP.Replace(strg," ")
InFilenameNew ="Output_"& nArr(I)&".txt"
Set Outfile = File1.CreateTextFile(inFileNameNew,1,False)
Outfile.Write(strg)
Next