a = Pick Directory("Select a directory");/*Permet de choisir le répertoire d'enregistrement*/
Multiple File Import(
<<Set Folder(a),
<<Set Show Hidden(0),
<<Set Subfolders(0),
<<Set Name Filter("*.*;"),
<<Set Name Enable(0),
<<Set Size Filter({36287, 36551}),
<<Set Size Enable(0),
<<Set Date Filter({3716185811.877, 3734598140.604}),
<<Set Date Enable(0),
<<Set Add File Name Column(1),
<<Set Add File Size Column(0),
<<Set Add File Date Column(0),
<<Set Import Mode("CSVData"),
<<Set Charset("Meilleure supposition"),
<<Set Stack Mode("Stack Similar"),
<<Set CSV Has Headers(1),
<<Set CSV Allow Numeric(1),
<<Set CSV First Header Line(1),
<<Set CSV Number Of Header Lines(1),
<<Set CSV First Data Line(2),
<<Set CSV EOF Comma(1),
<<Set CSV EOF Tab(0),
<<Set CSV EOF Space(0),
<<Set CSV EOF Spaces(0),
<<Set CSV EOF Other(""),
<<Set CSV EOL CRLF(1),
<<Set CSV EOL CR(1),
<<Set CSV EOL LF(1),
<<Set CSV EOL Semicolon(0),
<<Set CSV EOL Other(""),
<<Set CSV Quote("\!""),
<<Set CSV Escape(""),
<<Set XML Method("guess"),
<<Set XML Guess("huge"),
<<Set XML Settings(XML Settings()),
<<Set JSON Method("guess"),
<<Set JSON Guess("huge"),
<<Set JSON Settings(JSON Settings()),
<<Set Import Callback(Empty())
) << Import Data;
dt = Current Data Table();
dt << Delete Columns(:"Time (s)"n, :Index, :Current range);
dt << New Column("MODALITE",
Numeric,
"Continuous",
Format("Best", 12),
Formula(Word(1, :File Name, "."))
);
dt << Transpose(
columns(:"WE(1).Current (A)"n),
By(:MODALITE),
Label(:"Potential applied (V)"n),
Output Table("Table transposée")
);
dt << Subset(
By(:MODALITE),
All rows,
Selected columns only(0),
columns(:"Potential applied (V)"n, :"WE(1).Current (A)"n)
);
Open("link");
Data Table("BASE VOLTAMMO TRANSPOSE") << Concatenate(
Data Table("Table transposée"),
Append to first table
);
Close("Table transposée");
Data Table("BASE VOLTAMMO TRANSPOSE") << Save("link");