保存文件的matlab程序【dat txt mat】

%   直接使用    语句为：
 %            ss1（要保存的数组）
 %   文件名最好不要用汉语，特别是保存为mat文件时
 
 function ss1(a)
 %   
   [filename,pathname]=uigetfile({'*.xls';'*.txt';'*.dat';'*.mat' },'导入数据');
    l= length(filename);
        if l<5
            errordlg ('wrong file','file open error !!!');
             return;
        end
       filename1=strcat(pathname,filename);%合并绝对路径
       test=filename(1,l-3:l);
    switch test
        case '.txt'
            [o1 o2]=size(a);
                for o=1:o2
                    mm(1,(o-1)*7+1:o*7)=['%12.6f '];
                end
                mm1=strcat(mm,'\n');
                fid = fopen(filename1, 'wt');
                for j=1:o1
                    fprintf(fid,mm1, a(j,:));
                end
                fclose(fid)   ; 
        case '.xls'
            xlswrite(fullfile(pathname,filename),a,1);
        case '.dat'
                [o1 o2]=size(a);            
                for o=1:o2
                    mm(1,(o-1)*7+1:o*7)=['%12.6f '];
                end
                mm1=strcat(mm,'\n');
                fid = fopen(filename1, 'wt');
                for j=1:o1
                    fprintf(fid,mm1, a(j,:));
                end
                fclose(fid);
        case '.mat'
            save(filename1,'a');
    otherwise
        errordlg ('wrong file','file open error !!!');
    return;
    end