32 lines
588 B
Text
32 lines
588 B
Text
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
|