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