18 lines
467 B
Plaintext
18 lines
467 B
Plaintext
$ 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;
|