18/09/17 00:22:08.36 27GPeyCI.net
>>111
Dim fs, src, dest, line, i
Set fs = CreateObject("Scripting.FileSystemObject")
Set src = fs.OpenTextFile("test.csv", 1)
Set dest = fs.OpenTextFile("dest.csv", 2, True)
Do Until src.AtEndOfLine
line = src.ReadLine()
i = InStr(line, ",")
Call dest.WriteLine(Join(Array( _
Mid(line, 1, i - 1), _
"""" & Mid(line, i + 1, Len(line) - i) & """"), ","))
Loop
Call dest.Close()
Call src.Close()