(VBScript) CSV Enable Quotes

Explains the EnableQuotes property for the CSV class.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' The CSV in this example contains this:   test;"123;abc";xyz

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Csv")
set csv = CreateObject("Chilkat.Csv")

' EnableQuotes is 1 by default, but we'll explicitly set to 1 here:
csv.EnableQuotes = 1
success = csv.LoadFile("qa_data/csv/enableQuotes.csv")

' Show row 0, column 0
outFile.WriteLine(csv.GetCell(0,0))
' Show row 0, column 1
outFile.WriteLine(csv.GetCell(0,1))
' Show row 0, column 2
outFile.WriteLine(csv.GetCell(0,2))

' Output is: 
'  test
'  123;abc
'  xyz

' -------------------------------------------
' Turn off EnableQuotes and see what happens:

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Csv")
set csv2 = CreateObject("Chilkat.Csv")
csv2.EnableQuotes = 0

success = csv2.LoadFile("qa_data/csv/enableQuotes.csv")

outFile.WriteLine(csv2.GetCell(0,0))
outFile.WriteLine(csv2.GetCell(0,1))
outFile.WriteLine(csv2.GetCell(0,2))
outFile.WriteLine(csv2.GetCell(0,3))

' Output is:

'  test
'  "123
'  abc"
'  xyz

outFile.Close