Matlab 如何截取视频中的每一帧图像

实在感谢这位朋友brothers，我找了好几个小时啊~~

%这段代码可以选择一个或多个视频，根据视频名称和帧的序号对图片命名。设定的只能选择avi格式，至于其它格式的视频你可以改改代码的第一句试试%看。

%希望对你有用。
[filename,pathname,fileindex]=uigetfile('*.avi','选择视频文件','video.avi','Multiselect','on');
if ischar(filename) %只有选择了文件才进行以下计算
   video=mmreader([pathname filename]);
   %%General Settings:
    %Duration  时间
    %Name  视频名称
    %Path  路径
    %Tag = 
    %Type = mmreader
    %UserData = []
  %%Video Settings:
    %BitsPerPixel=24
    %FrameRate 视频采集速率
    %Height 高度
    %NumberOfFrames 总帧数
    %VideoFormat 图像模式
    %Width = 宽度
    LEN=video.NumberOfFrames; %获得视频长度
    dir=strcat(pathname,strrep(filename,'.avi',''),'\pic');
    mkdir(dir);
    fn=strrep(filename,'.avi','');
   for k=1:LEN-1 %若read到len，常会报错如下??? MATLAB:read:readTimedOut，read到len-1就好了
       frame=rgb2gray(read(video,k));
       if k<10
          imwrite(frame,strcat(dir,'\',fn,'-avi-000',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘
       elseif k>=10 && k<100
          imwrite(frame,strcat(dir,'\',fn,'-avi-00',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘
       elseif k>=100 && k<1000
          imwrite(frame,strcat(dir,'\',fn,'-avi-0',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘
       elseif k>=1000 && k<10000
          imwrite(frame,strcat(dir,'\',fn,'-avi-',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘
        end        
   end 
elseif iscell(filename)
   navi=length(filename);
   for n=1:navi
       video=mmreader([pathname filename{n}]);
       %%General Settings:
        %Duration  时间
        %Name  视频名称
        %Path  路径
        %Tag = 
        %Type = mmreader
        %UserData = []
      %%Video Settings:
        %BitsPerPixel=24
        %FrameRate 视频采集速率
        %Height 高度
        %NumberOfFrames 总帧数
        %VideoFormat 图像模式
        %Width = 宽度
       LEN=video.NumberOfFrames; %获得视频长度
       dir=strcat(pathname,strrep(filename{n},'.avi',''),'\pic');
       mkdir(dir);
       fn=strrep(filename{n},'.avi','');
       for k=1:LEN-1  %若read到len，常会报错如下??? MATLAB:read:readTimedOut，独到len-1就好了
           frame=rgb2gray(read(video,k));
           if k<10
              imwrite(frame,strcat(dir,'\',fn,'-avi-000',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘
           elseif k>=10 && k<100
              imwrite(frame,strcat(dir,'\',fn,'-avi-00',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘
           elseif k>=100 && k<1000
              imwrite(frame,strcat(dir,'\',fn,'-avi-0',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘
           elseif k>=1000 && k<10000
              imwrite(frame,strcat(dir,'\',fn,'-avi-',int2str(k),'.bmp'),'bmp');%把每帧图像存入硬盘
           end 
       end
       disp(strcat(num2str(n),'/',num2str(navi),' : "',filename{n},'" Finished!',datestr(now,13)));
   end
else
   return
end
msgbox('所有帧提取完毕,已写入磁盘！','提示');
clear all