B4X

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.

B4X

Dim success As Boolean = False

Dim csv As ChilkatCsv
csv.Initialize

'  Load the following CSV:

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

'  Indicate that the 1st line contains column names.
csv.HasColumnNames = True
success = csv.LoadFile("qa_data/csv/insertColumnTest.csv")

'  We can insert a column before the 1st column.
csv.InsertColumn(0)

Log(csv.SaveToString)

'  The CSV now looks like this:

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

'  Set the cells in column 0.

Dim col As Int = 0
csv.SetColumnName(col, "id")
csv.SetCell(0, col, "100")
csv.SetCell(1, col, "101")

Log(csv.SaveToString)

'  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.
Dim weightColumn As Int = csv.GetIndex("Weight")
Log("Weight Column Index = " & weightColumn)
csv.InsertColumn(weightColumn)

Log(csv.SaveToString)

'  We now have:

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

'  Set the cells in the new column:

csv.SetColumnName(weightColumn, "Height")
csv.SetCell(0, weightColumn, "6' 2" & Chr(34))
csv.SetCell(1, weightColumn, "5' 7" & Chr(34))

Log(csv.SaveToString)

'  We now have:

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