"threp" <threp@xxxxxx> wrote in message
news:48a3573f$0$3218$426a74cc@xxxxxx
Quote:
> Hi,
> 1. I'm looking for the fastest way to open a CSV file that is full of
> quotes, zap all the quotes, and then close it.
I presume you want to save the file before the "close".
Option Explicit
Const cCSV = "noquotes.csv"
Dim intCSV : intCSV = 0
Dim strCSV
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
strCSV = objFSO.OpenTextFile(cCSV,1). ReadAll
intCSV = Len(strCSV)
strCSV = Replace(strCSV,Chr(34),"")
objFSO.OpenTextFile(cCSV,2,True).Write(strCSV)
Set objFSO = Nothing
WScript.Echo intCSV - Len(strCSV) & " quotes removed."
Quote:
> 2. I 'm also looking for a compiler to make that script into an exe file .
> The exe would need to grab a filename from the command line.
AutoIt.