PowerBuilder

Create CSV File

See more CSV Examples

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

integer li_rc
long 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