B4X

Create CSV File

See more CSV Examples

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

Dim success As Boolean = False

'  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

Dim csv As ChilkatCsv
csv.Initialize

'  Indicate that the 1st row
'  should be treated as column names:
csv.HasColumnNames = True

success = csv.SetColumnName(0, "year")
success = csv.SetColumnName(1, "color")
success = csv.SetColumnName(2, "country")
success = csv.SetColumnName(3, "food")

success = csv.SetCell(0, 0, "2001")
success = csv.SetCell(0, 1, "red")
success = csv.SetCell(0, 2, "France")
success = csv.SetCell(0, 3, "cheese")

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

'  Write the CSV to a string and display:
Dim csvDoc As String
csvDoc = csv.SaveToString
Log(csvDoc)

'  Save the CSV to a file:
success = csv.SaveFile("out.csv")
If success <> True Then
    Log(csv.LastErrorText)
End If