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.



Public Sub Form_Open()
Dim sData As String = File.Load("data.csv")
Dim sLine, sTemp As String
Dim sOutput As New String[]
Dim siCount As Short
Dim bLine1 As Boolean
 
For Each sLine In Split(sData, gb.NewLine)
  If Not bLine1 Then 
    sLine &= ",SUM"
    sOutput.Add(sLine)
    bLine1 = True
    Continue
  End If
  For Each sTemp In Split(sLine)
    siCount += Val(sTemp)
  Next
  sOutput.Add(sLine & "," & Str(siCount))
  siCount = 0
Next
 
sData = ""
 
For Each sTemp In sOutput
  sData &= sTemp & gb.NewLine
  Print sTemp;
  Print
Next
 
File.Save(User.home &/ "CSVData.csv", sData)
 
End