(DataFlex) CSV Set Column Name

Demonstrates how to set the name of a column in a CSV.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Boolean iBCrlf
    Handle hoSb
    Handle hoCsv
    Integer iNumCols
    Integer i
    String sTemp1

    // We have the following CSV...

    // permalink,company,numEmps,category,city,state,fundedDate,raisedAmt,raisedCurrency,round
    // lifelock,LifeLock,,web,Tempe,AZ,1-May-07,6850000,USD,b
    // mycityfaces,MyCityFaces,7,web,Scottsdale,AZ,1-Jan-08,50000,USD,seed
    // flypaper,Flypaper,,web,Phoenix,AZ,1-Feb-08,3000000,USD,a
    // infusionsoft,Infusionsoft,105,software,Gilbert,AZ,1-Oct-07,9000000,USD,a
    // gauto,gAuto,4,web,Scottsdale,AZ,1-Jan-08,250000,USD,seed

    Move True To iBCrlf
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSb
    If (Not(IsComObjectCreated(hoSb))) Begin
        Send CreateComObject of hoSb
    End
    Get ComAppendLine Of hoSb "permalink,company,numEmps,category,city,state,fundedDate,raisedAmt,raisedCurrency,round" iBCrlf To iSuccess
    Get ComAppendLine Of hoSb "lifelock,LifeLock,,web,Tempe,AZ,1-May-07,6850000,USD,b" iBCrlf To iSuccess
    Get ComAppendLine Of hoSb "mycityfaces,MyCityFaces,7,web,Scottsdale,AZ,1-Jan-08,50000,USD,seed" iBCrlf To iSuccess
    Get ComAppendLine Of hoSb "flypaper,Flypaper,,web,Phoenix,AZ,1-Feb-08,3000000,USD,a" iBCrlf To iSuccess
    Get ComAppendLine Of hoSb "infusionsoft,Infusionsoft,105,software,Gilbert,AZ,1-Oct-07,9000000,USD,a" iBCrlf To iSuccess
    Get ComAppendLine Of hoSb "gauto,gAuto,4,web,Scottsdale,AZ,1-Jan-08,250000,USD,seed" iBCrlf To iSuccess

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

    Set ComHasColumnNames Of hoCsv To True
    Get ComGetAsString Of hoSb To sTemp1
    Get ComLoadFromString Of hoCsv sTemp1 To iSuccess

    // Get each column name..
    Get ComNumColumns Of hoCsv To iNumCols
    Move 0 To i
    While (i < iNumCols)
        Get ComGetColumnName Of hoCsv i To sTemp1
        Showln sTemp1
        Move (i + 1) To i
    Loop

    Showln "---"

    // Change the "numEmps" column name to "employeeCount"
    Get ComSetColumnName Of hoCsv 2 "employeeCount" To iSuccess

    Get ComNumColumns Of hoCsv To iNumCols
    Move 0 To i
    While (i < iNumCols)
        Get ComGetColumnName Of hoCsv i To sTemp1
        Showln sTemp1
        Move (i + 1) To i
    Loop

    // Use the updated column name...
    Showln "---"
    Get ComGetCellByName Of hoCsv 3 "employeeCount" To sTemp1
    Showln sTemp1

    // Output should be:

    // permalink
    // company
    // numEmps
    // category
    // city
    // state
    // fundedDate
    // raisedAmt
    // raisedCurrency
    // round
    // ---
    // permalink
    // company
    // employeeCount
    // category
    // city
    // state
    // fundedDate
    // raisedAmt
    // raisedCurrency
    // round
    // ---
    // 105


End_Procedure