function shujuzhengli(file)
%將雜亂的關于數字的語音文件歸類,每個數字分別存入一個文件.
jishu=(48:57);
%filewz='D:\work\語音\1107\語音文件\t';
filewz=file;
shujuku=zeros(10,1500);
a0=0;
a1=0;
a2=0;
a3=0;
a4=0;
a5=0;
a6=0;
a7=0;
a8=0;
a9=0;
for j=3:3
    j
    for jj=1:10
        jj
        for jjj=1:10
            jjj
            filename=[filewz char(jishu(j)) char(jishu(jj)) char(jishu(jjj))];
            [qs,zz,num]=readlab([filename '.lab']);
            [d,fp,dt,tc,t]=readhtk([filename '.wav']);
            pd=zeros(4,3000);
            for i=1:4
                qs1(i)=round(qs(i)/fp/10000000);
                zz1(i)=round(zz(i)/fp/10000000);
                cb(i)=zz1(i)-qs1(i)+1;
                pd(i,1)=cb(i);
                for j1=qs1(i):zz1(i)
                    pd(i,j1-qs1(i)+2)=d(j1);
                end                
            end
            for i=1:4
                  switch num(i)
                         case {0}
                             a0=a0+1;
                             data0(a0,:)=pd(i,:);
                         case {1}
                            a1=a1+1;
                             data1(a1,:)=pd(i,:);
                         case {2}
                             a2=a2+1;
                             data2(a2,:)=pd(i,:);
                         case {3}
                             a3=a3+1;
                             data3(a3,:)=pd(i,:);
                         case {4}
                                a4=a4+1;
                             data4(a4,:)=pd(i,:);
                         case {5}
                            a5=a5+1;
                             data5(a5,:)=pd(i,:);
                         case {6}
                             a6=a6+1;
                             data6(a6,:)=pd(i,:);
                         case {7}
                             a7=a7+1;
                             data7(a7,:)=pd(i,:);
                         case {8}
                              a8=a8+1;
                             data8(a8,:)=pd(i,:);
                         case {9}
                             a9=a9+1;
                             data9(a9,:)=pd(i,:);
                         otherwise
                         ;
                  end
        
            end
       
        
        
        
        
        end
    end
end
fid = fopen('..\data0.mat','wb');fwrite(fid,data0','double');fclose(fid);
fid = fopen('data1.mat','wb');fwrite(fid,data1','double');fclose(fid);
fid = fopen('data2.mat','wb');fwrite(fid,data2','double');fclose(fid);
fid = fopen('data3.mat','wb');fwrite(fid,data3','double');fclose(fid);
fid = fopen('data4.mat','wb');fwrite(fid,data4','double');fclose(fid);
fid = fopen('data5.mat','wb');fwrite(fid,data5','double');fclose(fid);
fid = fopen('data6.mat','wb');fwrite(fid,data6','double');fclose(fid);
fid = fopen('data7.mat','wb');fwrite(fid,data7','double');fclose(fid);
fid = fopen('data8.mat','wb');fwrite(fid,data8','double');fclose(fid);
fid = fopen('data9.mat','wb');fwrite(fid,data9','double');fclose(fid);