Data commit

Task/CSV-data-manipulation/Seed7/csv-data-manipulation.seed7

@@ -0,0 +1,17 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  local
+    var file: input is STD_NULL;
+    var array array string: csvData is 0 times 0 times "";
+    var integer: line is 0;
+  begin
+    input := open(dir(PROGRAM) & "/csvDataManipulation.in", "r");
+    while hasNext(input) do
+      csvData &:= split(getln(input), ",");
+    end while;
+    csvData[3][3] := "X";
+    for key line range csvData do
+      writeln(join(csvData[line], ","));
+    end for;
+  end func;