DataFlex

CSV Get Contents of Cell using Row Index and Column Name

Demonstrates the GetCellByName method. DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Boolean iBCrlf
    Handle hoSb
    Handle hoCsv
    String sCellContent
    String sTemp1

    Move False To iSuccess

    // 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 the contents of the cell at row 2 for the "city" column, which is "Scottsdale".
    // Indexes are 0-based.  The 2nd row is at index 14.
    // (The row of column names is not a data row.)
    Get ComGetCellByName Of hoCsv 1 "city" To sCellContent
    Showln sCellContent

    // Output should be "Scottsdale"


End_Procedure