[VBScript] Aprire e sostituire virgolette in file fto. CSV

[fraude]

Ciao a tutti.

Con il seguente codice in VBScript sto provando a :

1. Aprire sei file CSV;
2. Sostituire all'interno di ciascun file CSV il simbolo virgolette con uno spazio;
3. 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

 
   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

[optime]

se il file lo leggi DOPO averlo scritto...

[LeleFT]

Spostato nella sezione "Visual Basic e .NET Framework".
Ciao.

[fraude]

se il file lo leggi DOPO averlo scritto...

Grazie Optime, se non ci fossi bisognerebbe inventarti ...

[fraude]

Spostato nella sezione "Visual Basic e .NET Framework".
Ciao.

Grazie
Ciao

[optime]

quindi tuttapposhto?

[fraude]

quindi tuttapposhto?

Si grazie, tuttapposhto !

Di seguito il codice funzionante... buon we!

   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

[optime]

optime! buon we!