程序如下：

function R=username(S)

%S为用户名的字符串

if ~isstr(S)

error('Input argument is not string.');

end

%读取数据

[Ad,At]=xlsread('final exam-mini project-database.xlsx','Students');

A=At(3:end,1:end);

p=isnan(Ad);

po=find(p(1,:));

Ad=mat2cell(Ad,ones(1,size(Ad,1)),ones(1,size(Ad,2)));

A(3:end,3:po+1)=Ad(:,1:po-1);

A(3:end,po+3:end)=Ad(:,po+1:end);

[~,B]=xlsread('final exam-mini project-database.xlsx','Assignments');

BAP=instr(B(:,1),'Assignment');

BAP=find(BAP);

BEP=instr(B(:,1),'Exam Question');

BEP=find(BEP);

BA=B(BAP:BEP-2,1:end);

BE=B(BEP:end,1:end);

%寻找用户名

p=instr(A(:,2),S);

po=find(p);

if isempty(po)

error('该用户名不存在!');

end

A1=A([1,2,po],[1,2,29,30]);

disp(A1)

P=instr(A(1,:),{'Assignment','Exam Question','Overall Grade'});

P=find(P);

A2=A([2,po],[P(1):P(2)-1]);

disp('Assignment:')

disp(A2)

A3=A([2,po],[P(2):P(3)-1]);

disp('Exam Question:')

disp(A3)

disp(['Overall Grade: ',num2str(A{po,P(3)})])

%输出额外信息

for n=1:size(A2,2)

if A2{2,n}<70

disp(['Recommended review Assignment ',num2str(n),': Grade: ',...

num2str(A2{2,n}),' out of 100 points'])

PA2=BA([1,n+1],:);

disp(PA2)

else

continue;

end

end

AS=[5*ones(1,16),3*ones(1,16)];

AS(1,[9,10,11,14,16])=20;

AS(2,[9,10,11,14,16])=10;

for n=1:size(A3,2)

if A3{2,n}

disp(['Recommended review Exam Question ',num2str(n),': Grade: ',...

num2str(A3{2,n}),' out of ',num2str(AS(1,n)),' points'])

PA3=BE([1,n+1],:);

disp(PA3)

else

continue;

end

end

function p=instr(string,pattern)

%寻找pattern在string中的位置

%string为元胞数组

%pattern为元胞数组或者单个字符串

p=zeros(size(string,1),size(string,2));

if iscell(pattern)

pattern=reshape(pattern,prod(size(pattern)),1);

for pa=1:length(pattern)

l=strfind(string,pattern{pa});

l=reshape(l,prod(size(l)),1);

for m=1:length(l)

if isempty(l{m})

continue;

else

p(m)=1;

break;

end

end

end

elseif isstr(pattern)

l=strfind(string,pattern);

l=reshape(l,prod(size(l)),1);

for m=1:length(l)

if isempty(l{m})

continue;

else

p(m)=1;

break;

end

end

else

error('Argument is not cell or string!');

end

return