September 2017 Update

Task/CSV-data-manipulation/Pascal/csv-data-manipulation.pascal

@@ -0,0 +1,45 @@
+program CSV_Data_Manipulation;
+uses Classes, SysUtils;
+
+var s: string;
+    ts: tStringList;
+    inFile,
+    outFile: Text;
+    Sum: integer;
+    Number: string;
+
+begin
+
+  Assign(inFile,'input.csv');
+  Reset(inFile);
+
+  Assign(outFile,'result.csv');
+  Rewrite(outFile);
+
+  ts:=tStringList.Create;
+  ts.StrictDelimiter:=True;
+
+  // Handle the header
+  ReadLn(inFile,s);                     // Read a line from input file
+  ts.CommaText:=s;                      // Split it to lines
+  ts.Add('SUM');                        // Add a line
+  WriteLn(outFile,ts.CommaText);        // Reassemble it with comma as delimiter
+
+  // Handle the data
+  while not eof(inFile) do
+  begin
+    ReadLn(inFile,s);
+    ts.CommaText:=s;
+
+    Sum:=0;
+    for Number in ts do
+      Sum+=StrToInt(Number);
+
+    ts.Add('%D',[Sum]);
+
+    writeln(outFile, ts.CommaText);
+  end;
+  Close(outFile);
+  Close(inFile);
+  ts.Free;
+end.