CSV spreadsheet files are suitable for storing tabular data in a relatively portable way.

The CSV format is flexible but somewhat ill-defined.

For present purposes, authors may assume that the data fields contain no commas, backslashes, or quotation marks.



Task

Read a CSV file, change some values and save the changes back to a file.

For this task we will use the following CSV file:

C1,C2,C3,C4,C5
1,5,9,13,17
2,6,10,14,18
3,7,11,15,19
4,8,12,16,20

Suggestions


 Show how to add a column, headed 'SUM', of the sums of the rows.
 If possible, illustrate the use of built-in or standard functions, methods, or libraries, that handle generic CSV files.



' FB 1.05.0 Win64
 
Open "manip.csv" For Input As #1 ' existing CSV file
Open "manip2.csv" For Output As #2 ' new CSV file for writing changed data
 
Dim header As String
Line Input #1, header 
header += ",SUM"
Print #2, header
 
Dim As Integer c1, c2, c3, c4, c5, sum
 
While Not Eof(1)
  Input #1, c1, c2, c3, c4, c5
  sum = c1 + c2 + c3 + c4 + c5
  Write #2, c1, c2, c3, c4, c5, sum
Wend
 
Close #1
Close #2