(Tcl) CSV Insert Column

See more CSV Examples

Insert a new column into an existing CSV.

Note: This example requires Chilkat v9.5.0.89 or greater because the InsertColumn method was added in v9.5.0.89.

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set csv [new_CkCsv]

# Load the following CSV:

#  Name;City;Weight
#  John;Chicago;180
#  Lisa;Denver;120

# Indicate that the 1st line contains column names.
CkCsv_put_HasColumnNames $csv 1
set success [CkCsv_LoadFile $csv "qa_data/csv/insertColumnTest.csv"]

# We can insert a column before the 1st column.
CkCsv_InsertColumn $csv 0

puts [CkCsv_saveToString $csv]

# The CSV now looks like this:

#  ;Name;City;Weight
#  ;John;Chicago;180
#  ;Lisa;Denver;120

# Set the cells in column 0.

set col 0
CkCsv_SetColumnName $csv $col "id"
CkCsv_SetCell $csv 0 $col "100"
CkCsv_SetCell $csv 1 $col "101"

puts [CkCsv_saveToString $csv]

# We now have:

#  id;Name;City;Weight
#  100;John;Chicago;180
#  101;Lisa;Denver;120

# Insert a new column between City and Weight
# In other words, add a new column before the Weight column.
set weightColumn [CkCsv_GetIndex $csv "Weight"]
puts "Weight Column Index = $weightColumn"
CkCsv_InsertColumn $csv $weightColumn

puts [CkCsv_saveToString $csv]

# We now have:

#  id;Name;City;;Weight
#  100;John;Chicago;;180
#  101;Lisa;Denver;;120

# Set the cells in the new column:

CkCsv_SetColumnName $csv $weightColumn "Height"
CkCsv_SetCell $csv 0 $weightColumn "6' 2\""
CkCsv_SetCell $csv 1 $weightColumn "5' 7\""

puts [CkCsv_saveToString $csv]

# We now have:

#  id;Name;City;Height;Weight
#  100;John;Chicago;"6' 2""";180
#  101;Lisa;Denver;"5' 7""";120

delete_CkCsv $csv