获取Simulink模型 SubSystem Port名称

%% 获取Simulink模型下特定SubSystem的Port名称
clc;
clear;
bdclose;

[filename, pathname] = uigetfile({'*.slx';'*.mdl';'*.*'}, 'Select a Simulink Model file');
if isequal(filename,0)
   disp('User selected Cancel')
else
   disp(['User selected ', fullfile(pathname, filename)])
end
load_system([pathname,filename]);


%% find 'In_S' SubSystem
[pathstr,name,ext] = fileparts(filename);
str = find_system(name,'SearchDepth',1,'BlockType','SubSystem');
k = contains(str,'In_S');
Objects = find_system(str(k),'SearchDepth',1,'BlockType','Inport');
portName = get_param(Objects,'Name');
% 以下划线为分隔符，取第一个下划线前的字符为Name
expression = '\_';
splitStr = regexp(portName,expression,'split');
for nn = 1:length(portName)
    In_S_InportName{nn,1} = splitStr{nn,1}{1,1};
end

Objects = find_system(str(k),'SearchDepth',1,'BlockType','Outport');
portName = get_param(Objects,'Name');
% 以下划线为分隔符，取第一个下划线前的字符为Name
expression = '\_';
splitStr = regexp(portName,expression,'split');
for nn = 1:length(portName)
    In_S_OutportName{nn,1} = splitStr{nn,1}{1,1};
end


%%  find 'Out_S' SubSystem
k = contains(str,'Out_S');
Objects = find_system(str(k),'SearchDepth',1,'BlockType','Inport');
portName = get_param(Objects,'Name');
expression = '\_';
splitStr = regexp(portName,expression,'split');
for nn = 1:length(portName)
    Out_S_InportName{nn,1} = splitStr{nn,1}{1,1};
end


Objects = find_system(str(k),'SearchDepth',1,'BlockType','Outport');
portName = get_param(Objects,'Name');
expression = '\_';
splitStr = regexp(portName,expression,'split');
for nn = 1:length(portName)
    Out_S_OutportName{nn,1} = splitStr{nn,1}{1,1};
end

clearvars -except In_S_InportName  In_S_OutportName Out_S_InportName Out_S_OutportName