VBScript

CSV Enable Quotes

Explains the EnableQuotes property for the CSV class. VBScript

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

success = 0

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

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:

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