(PureBasic) Read Japanese utf-8 CSV File

Demonstrates how to read a utf-8 .csv file containing some Japanese characters.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCsv.pb"

Procedure ChilkatExample()

    ; This example program loads a file (japanese.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
    ; 2010,silver,"",""
    ; 

    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.
    ; Important: Make sure to call LoadFile2 so that the charset (utf-8)
    ; of the CSV file can be indicated.
    success.i = CkCsv::ckLoadFile2(csv,"qa_data/csv/japanese.csv","utf-8")
    If success <> 1
        Debug CkCsv::ckLastErrorText(csv)
        CkCsv::ckDispose(csv)
        ProcedureReturn
    EndIf

    ; Display the contents of the 3rd column
    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