Ciao a tutti.
Con il seguente codice in VBScript sto provando a :
- Aprire sei file CSV;
- Sostituire all'interno di ciascun file CSV il simbolo virgolette con uno spazio;
- Chiudere e salvare ciascun file file CSV in fto. TXT.
Il problema è che il risultato è sbagliato :
- Il file Output_D1.txt è un file vuoto;
- Il file Output_D2.txt contiene le righe del file Output_D1.csv, invece delle righe del file Output_D2.csv;
- Il file Output_D3.txt contiene le righe del file Output_D2.csv, invece delle righe del file Output_D3.csv;
- Il file Output_D4.txt contiene le righe del file Output_D3.csv, invece delle righe del file Output_D4.csv;
- Il file Output_D5.txt contiene le righe del file Output_D4.csv, invece delle righe del file Output_D5.csv;
- Il file Output_D6.txt contiene le righe del file Output_D5.csv, invece delle righe del file Output_D6.csv;
- Nessun file TXT con i dati di Output_D6.csv
Cosa sto sbagliando ?
Grazie
codice:
nArr = Array("D1","D2","D3","D4","D5","D6")
Set reP =new RegExp
reP.Pattern ="\"""
For I =0To UBound(nArr)
InFilename ="Output_"& nArr(I)&".csv"
Set FILE1 = CreateObject("scripting.FileSystemObject")
Set infile = FILE1.OpenTextFile(InFileName,1,False)
strg = reP.Replace(strg," ")
InFilenameNew ="Output_"& nArr(I)&".txt"
Set Outfile = File1.CreateTextFile(inFileNameNew,1,False)
Outfile.Write(strg)
strg = infile.ReadAll
infile.Close
Next