Update all new Tasks
This commit is contained in:
parent
00a190b0a6
commit
91df62d461
5697 changed files with 93386 additions and 804 deletions
17
Task/CSV-data-manipulation/Seed7/csv-data-manipulation.seed7
Normal file
17
Task/CSV-data-manipulation/Seed7/csv-data-manipulation.seed7
Normal file
|
|
@ -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;
|
||||
Loading…
Add table
Add a link
Reference in a new issue