(PureBasic) Read CSV File

Demonstrates how to read a .csv file and access the contents.

The Chilkat CSV library/component/class is freeware. The downloads for .NET, C++, Perl, Java, Ruby, and Python contain all of the Chilkat classes, some of which are freeware and some of which require licensing.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCsv.pb"

Procedure ChilkatExample()

    ; This example program loads a file (sample.csv)
    ; that contains this content:
    ; 
    ; year,color,country,food
    ; 2001,red,France,cheese
    ; 2005,blue,"United States",hamburger
    ; 2008,green,Italy,pasta
    ; 1998,orange,Japan,sushi
    ; 
    ; The first row contains the column names.
    ; This file is available at:
    ; http://www.chilkatsoft.com/testData/sample.csv

    csv.i = CkCsv::ckCreate()
    If csv.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Prior to loading the CSV file, indicate that the 1st row
    ; should be treated as column names:
    CkCsv::setCkHasColumnNames(csv, 1)

    ; Load the CSV records from the file:
    success.i
    success = CkCsv::ckLoadFile(csv,"sample.csv")
    If success <> 1
        Debug CkCsv::ckLastErrorText(csv)
        CkCsv::ckDispose(csv)
        ProcedureReturn
    EndIf

    ; Display the contents of the 3rd column (i.e. the country names)
    row.i
    n.i = CkCsv::ckNumRows(csv)
    For row = 0 To n - 1
        Debug CkCsv::ckGetCell(csv,row,2)
    Next


    CkCsv::ckDispose(csv)


    ProcedureReturn
EndProcedure