PowerBuilder

Create CSV File

See more CSV Examples

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

integer li_rc
integer li_Success
oleobject loo_Csv
string ls_CsvDoc

li_Success = 0

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

loo_Csv = create oleobject
li_rc = loo_Csv.ConnectToNewObject("Chilkat.Csv")
if li_rc < 0 then
    destroy loo_Csv
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

li_Success = loo_Csv.SetColumnName(0,"year")
li_Success = loo_Csv.SetColumnName(1,"color")
li_Success = loo_Csv.SetColumnName(2,"country")
li_Success = loo_Csv.SetColumnName(3,"food")

li_Success = loo_Csv.SetCell(0,0,"2001")
li_Success = loo_Csv.SetCell(0,1,"red")
li_Success = loo_Csv.SetCell(0,2,"France")
li_Success = loo_Csv.SetCell(0,3,"cheese")

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

// Write the CSV to a string and display:

ls_CsvDoc = loo_Csv.SaveToString()
Write-Debug ls_CsvDoc

// Save the CSV to a file:
li_Success = loo_Csv.SaveFile("out.csv")
if li_Success <> 1 then
    Write-Debug loo_Csv.LastErrorText
end if



destroy loo_Csv