(DataFlex) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoCsv
    Boolean iSuccess
    Integer iCol
    Integer iWeightColumn
    String sTemp1

    Get Create (RefClass(cComChilkatCsv)) To hoCsv
    If (Not(IsComObjectCreated(hoCsv))) Begin
        Send CreateComObject of hoCsv
    End

    // Load the following CSV:

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

    // Indicate that the 1st line contains column names.
    Set ComHasColumnNames Of hoCsv To True
    Get ComLoadFile Of hoCsv "qa_data/csv/insertColumnTest.csv" To iSuccess

    // We can insert a column before the 1st column.
    Get ComInsertColumn Of hoCsv 0 To iSuccess

    Get ComSaveToString Of hoCsv To sTemp1
    Showln sTemp1

    // The CSV now looks like this:

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

    // Set the cells in column 0.

    Move 0 To iCol
    Get ComSetColumnName Of hoCsv iCol "id" To iSuccess
    Get ComSetCell Of hoCsv 0 iCol "100" To iSuccess
    Get ComSetCell Of hoCsv 1 iCol "101" To iSuccess

    Get ComSaveToString Of hoCsv To sTemp1
    Showln sTemp1

    // 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.
    Get ComGetIndex Of hoCsv "Weight" To iWeightColumn
    Showln "Weight Column Index = " iWeightColumn
    Get ComInsertColumn Of hoCsv iWeightColumn To iSuccess

    Get ComSaveToString Of hoCsv To sTemp1
    Showln sTemp1

    // We now have:

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

    // Set the cells in the new column:

    Get ComSetColumnName Of hoCsv iWeightColumn "Height" To iSuccess
    Get ComSetCell Of hoCsv 0 iWeightColumn '6' 2"' To iSuccess
    Get ComSetCell Of hoCsv 1 iWeightColumn '5' 7"' To iSuccess

    Get ComSaveToString Of hoCsv To sTemp1
    Showln sTemp1

    // We now have:

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


End_Procedure