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