% p0 = [pwd,'\data\'];
% namestr=f_basic_namestr(p0);
function namestr=f_basic_namestr(p0)
% p0 = [pwd,'\data\'];
dt = dir(p0);
namestr=cell(length(dt)-2,1);
for i=3:size(dt,1)
    namestr(i-2,1)={dt(i).name(1:end)};
    str1=dt(i).name(1:end);
    size2=size(str1,2);
    ind=0;
    for j=1:size2
        str2=str1(j);
        if strcmp(str2,'.')
            ind=j;
        end
    end
    if ind==0
        disp(['f_basic_namestr--没有扩展名.']);
    else
    str3=str1(1:ind-1);
    namestr(i-2,2)={str3};%不要扩展名
    end
end
end