%main.m
%
clear
%读取表格
T = readtable('School20210913.xls','ReadRowNames',true);
ANS={};
num=1;
for i=1:size(T,1)
ANS{num,1}=T{i,1};
ANS{num,2}=T{i,2};
num=num+1;
if ~strcmp(T{i,3},'') %判断单元格是否为空
T_str=T{i,3};
T_str=regexp(T_str, ';', 'split');%按封号分割字符串
num=num-1;
for j=1:size(T_str{1},2)
a= T_str{1,1}(j);
a=reduce_char123({'-','1','2','3','4','5','6','7','8','9','0'},a);%去除字符串中的数字和横线
ANS{num,1}=T{i,1};
ANS{num,2}=a;
num=num+1;
end
end
end
for i=1:size(ANS,2)
b=ANS{i,2};
ANS{i,2}=strrep(b,'-','');
end
ANS_=cell2table(ANS);
writetable(ANS_,'School20210913Good2.xls') ;%写入新的表格
%=reduce_char123.m
%去除字符串中特定字符
%str_origin:原字符串
%r_str:返回字符串
%char_cell:去除字符集
function r_str=reduce_char123(char_cell,str_origin)
r_str=str_origin;
for i=1:length(char_cell)
re_char=char_cell(i);
r_str=strrep(r_str,re_char,'');
end
end