(Tcl) Create CSV File

Demonstrates how to create a new CSV file with some simple content.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

# This sample code creates a new CSV file (sample.csv)
# that contains this content:
# 
# year,color,country,food
# 2001,red,France,cheese
# 2005,blue,"United States",hamburger

set csv [new_CkCsv]

# Indicate that the 1st row
# should be treated as column names:
CkCsv_put_HasColumnNames $csv 1

set success [CkCsv_SetColumnName $csv 0 "year"]
set success [CkCsv_SetColumnName $csv 1 "color"]
set success [CkCsv_SetColumnName $csv 2 "country"]
set success [CkCsv_SetColumnName $csv 3 "food"]

set success [CkCsv_SetCell $csv 0 0 "2001"]
set success [CkCsv_SetCell $csv 0 1 "red"]
set success [CkCsv_SetCell $csv 0 2 "France"]
set success [CkCsv_SetCell $csv 0 3 "cheese"]

set success [CkCsv_SetCell $csv 1 0 "2005"]
set success [CkCsv_SetCell $csv 1 1 "blue"]
set success [CkCsv_SetCell $csv 1 2 "United States"]
set success [CkCsv_SetCell $csv 1 3 "hamburger"]

# Write the CSV to a string and display:

set csvDoc [CkCsv_saveToString $csv]
puts "$csvDoc"

# Save the CSV to a file:
set success [CkCsv_SaveFile $csv "out.csv"]
if {$success != 1} then {
    puts [CkCsv_lastErrorText $csv]
}


delete_CkCsv $csv