问根据文件名称分离文件

EN

% Filename: dirTable.m
function dirListing = dirTable( names )
arguments
    names (:,1) string {mustBeText} = pwd()
end

dirListing = table();
for nIdx = 1:numel( names )
    tempListing = dir( names( nIdx ) );
    dirListing = [ dirListing;...
        struct2table( tempListing,'AsArray', true ) ]; %#ok<AGROW>
end
if ~isempty( dirListing )
    %Adjust some of the types...
    dirListing.name = categorical( dirListing.name );
    dirListing.folder = categorical( dirListing.folder );
    dirListing.date = datetime( dirListing.date );
end
end

%% Create some dummy files - assuming windows, or I'd use the "touch" cmd.
cmds = "type nul >> Ts_42_" + (1:3) + ".txt";
cmds = [cmds;"type nul >> Tp_42_" + (1:3) + ".txt"];
cmds = [cmds;"type nul >> Ts_21_" + (1:3) + ".txt"];
cmds = [cmds;"type nul >> Tp_21_" + (1:3) + ".txt"];
for idx = 1:numel(cmds)
    system(cmds(idx));
end

%% Get the directory listing for all the files
% Note, the filenames come out as categoricals by my design, though that
% doesnt help much for this example - in fact - I'll have to cast to
% convert the categoricals to string a few times.  Thats ok, its not a
% heavy lift.  If you use dir directly, you'd not only be casting to
% string, but you'd also have to deal with the structure and clunky if/else
% conditions everywhere.
listing = dirTable();

%% Define patterns for each of the 4 groups
% - pretending the first code cell doesnt exist.

Tp_Angle1_pattern = "Tp_21";
Ts_Angle1_pattern = "Ts_21";
Tp_Angle2_pattern = "Tp_42";
Ts_Angle2_pattern = "Ts_42";

%% Cycle a group's data, creating a single table from all the files
% I could be more clever here and loop through the patterns as well and
% create a table of tables; however, I am going to keep this code easier
% to read at the cost of repetitiveness.  I will however use a local
% function to gather all the runs from one group into a single table.
Tp_Angle1_matches = string(listing.name).startsWith(Tp_Angle1_pattern);
Tp_Angle1_filenames = string(listing.name(Tp_Angle1_matches));
Tp_Angle1_data = aggregateDataFilesToTable(Tp_Angle1_filenames);

% Repeat for each group...  Or loop the above code for a single table
% if you loop for a single table, make sure to add column(s) for the group
% information


%% My local function for reading all the files in a group
function data_table = aggregateDataFilesToTable(filenames)
arguments
    filenames (:,1) string
end
% We could assume that since we're using run numbers at the end of the 
% filename, that we'll get the filenames pre-sorted for us.  If not zero
% padding the numbers, then need to extract the run number to determine the
% sort order of the files to read in. I'm going to be lazy and assume zero
% padded for simplicity.
data_table = table();  
for fileIdx = 1:numel(filenames)
    % For the following line, two things: 
    % 1) the [data_table;readtable()] syntax appends the table from 
    % readtable to the end of data_table.
    % 2) The comment at the end acknowledges that this variable is growing
    % in a loop, which is usually not the best practice; however, since I
    % have no way of knowing the total table dimensions ahead of time, I
    % cannot pre-allocate the table before the loop - hence the table()
    % call before the for loop.  If you have a way of knowing this ahead of
    % time, do pre-allocate!
    data_table = [data_table;readtable(filenames(fileIdx))]; %#ok<AGROW> 
end
end