Lianja

Create CSV File

See more CSV Examples

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

llSuccess = .F.

// 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

loCsv = createobject("CkCsv")

// Indicate that the 1st row
// should be treated as column names:
loCsv.HasColumnNames = .T.

llSuccess = loCsv.SetColumnName(0,"year")
llSuccess = loCsv.SetColumnName(1,"color")
llSuccess = loCsv.SetColumnName(2,"country")
llSuccess = loCsv.SetColumnName(3,"food")

llSuccess = loCsv.SetCell(0,0,"2001")
llSuccess = loCsv.SetCell(0,1,"red")
llSuccess = loCsv.SetCell(0,2,"France")
llSuccess = loCsv.SetCell(0,3,"cheese")

llSuccess = loCsv.SetCell(1,0,"2005")
llSuccess = loCsv.SetCell(1,1,"blue")
llSuccess = loCsv.SetCell(1,2,"United States")
llSuccess = loCsv.SetCell(1,3,"hamburger")

// Write the CSV to a string and display:

lcCsvDoc = loCsv.SaveToString()
? lcCsvDoc

// Save the CSV to a file:
llSuccess = loCsv.SaveFile("out.csv")
if (llSuccess <> .T.) then
    ? loCsv.LastErrorText
endif



release loCsv