(PureBasic) Create CSV File

Demonstrates how to create a new CSV file with some simple content.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCsv.pb"

Procedure ChilkatExample()

    ; This sample code creates a new CSV file (sample.csv)
    ; that contains this content:
    ; 
    ; year,color,country,food
    ; 2001,red,France,cheese
    ; 2005,blue,"United States",hamburger

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

    ; Indicate that the 1st row
    ; should be treated as column names:
    CkCsv::setCkHasColumnNames(csv, 1)

    success.i = CkCsv::ckSetColumnName(csv,0,"year")
    success = CkCsv::ckSetColumnName(csv,1,"color")
    success = CkCsv::ckSetColumnName(csv,2,"country")
    success = CkCsv::ckSetColumnName(csv,3,"food")

    success = CkCsv::ckSetCell(csv,0,0,"2001")
    success = CkCsv::ckSetCell(csv,0,1,"red")
    success = CkCsv::ckSetCell(csv,0,2,"France")
    success = CkCsv::ckSetCell(csv,0,3,"cheese")

    success = CkCsv::ckSetCell(csv,1,0,"2005")
    success = CkCsv::ckSetCell(csv,1,1,"blue")
    success = CkCsv::ckSetCell(csv,1,2,"United States")
    success = CkCsv::ckSetCell(csv,1,3,"hamburger")

    ; Write the CSV to a string and display:
    csvDoc.s
    csvDoc = CkCsv::ckSaveToString(csv)
    Debug csvDoc

    ; Save the CSV to a file:
    success = CkCsv::ckSaveFile(csv,"out.csv")
    If success <> 1
        Debug CkCsv::ckLastErrorText(csv)
    EndIf



    CkCsv::ckDispose(csv)


    ProcedureReturn
EndProcedure