Use images to create video, script to read through hundreds of folders to do it

Question

John 2013-8-20

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/85193-use-images-to-create-video-script-to-read-through-hundreds-of-folders-to-do-it

评论： John 2013-11-26

Hi,

Task: I have been tasked to come up with a MATLAB script that takes tiff images in a folder and creates a movie from them.

Details: There are hundreds of folders, each containing two subfolders, that contain hundreds of images each. I need the script to... >Go into folder 1 >Go into subfolder A >Create a video using the hundreds of images there and save it in the folder >Go back out to folder 1 >Go into subfolder B >Create video like above >Go back out and into folder 2 and so on until it has gone through all of the folders.

I know... this is a big job

Problems: I created a folder on my desktop and downloaded pictures of numbers 1-10 as samples. I found a script that will go into that folder and create a video from the images. But that's it. I don't know if the video is created or saved anywhere, and all the viewer shows is the single images that are in the folder.

Here's the code I used... found it on here and linked to a video explaining it.

clear all
close all
clc
framesPerSec = Enter #;
movie_name = ('Enter name');
aviobj = avifile(movie_name,'fps',framesPerSec); 
dname = ('C/blah/blah);
top_file = [dname '\'];   
ls_top_file = ls(top_file);   
c = cellstr(ls_top_file);   
cc = c(3:length(c));   
S = size(cc);   
a = 1;   
while a <= S(1)
    close all
    file = char(cellstr([top_file char(cc(a))]));   
    data_n = char(cc(a))
    file_name = char(cc(a));
      figure
      fileToRead2 = [dname '\' file_name];
      imshow((fileToRead2))
      axis tight
      hold off
      h = getframe(gcf);     
      aviobj = addframe(aviobj,h);    
      a = a+1;
  end
h = getframe(gcf); 
aviobj = addframe(aviobj,h);    
aviobj = close(aviobj);

Any tips on where to look, as I'm sure there are bits to my question that have been asked on here before.

1 个评论
显示 -1更早的评论隐藏 -1更早的评论

Jan 2013-8-26

The brute clearing header "clear all, close all, clc" reduces the power of the debugger for no real benefit.

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

Image Analyst 2013-8-20

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/85193-use-images-to-create-video-script-to-read-through-hundreds-of-folders-to-do-it#answer_94683

在 MATLAB Online 中打开

Try this code: http://www.mathworks.com/matlabcentral/answers/84951#answer_94506

And here's a demo to show you how to recurse into subfolders:

% Start with a folder and get a list of all subfolders.
% Finds and prints names of all PNG, JPG, and TIF images in 
% that folder and all of its subfolders.
clc;    % Clear the command window.
workspace;  % Make sure the workspace panel is showing.
format longg;
format compact;
% Define a starting folder.
start_path = fullfile(matlabroot, '\toolbox\images\imdemos');
% Ask user to confirm or change.
topLevelFolder = uigetdir(start_path);
if topLevelFolder == 0
  return;
end
% Get list of all subfolders.
allSubFolders = genpath(topLevelFolder);
% Parse into a cell array.
remain = allSubFolders;
listOfFolderNames = {};
while true
  [singleSubFolder, remain] = strtok(remain, ';');
  if isempty(singleSubFolder)
    break;
  end
  listOfFolderNames = [listOfFolderNames singleSubFolder];
end
numberOfFolders = length(listOfFolderNames)
% Process all image files in those folders.
for k = 1 : numberOfFolders
  % Get this folder and print it out.
  thisFolder = listOfFolderNames{k};
  fprintf('Processing folder %s\n', thisFolder);
  
  % Get PNG files.
  filePattern = sprintf('%s/*.png', thisFolder);
  baseFileNames = dir(filePattern);
  % Add on TIF files.
  filePattern = sprintf('%s/*.tif', thisFolder);
  baseFileNames = [baseFileNames; dir(filePattern)];
  % Add on JPG files.
  filePattern = sprintf('%s/*.jpg', thisFolder);
  baseFileNames = [baseFileNames; dir(filePattern)];
  numberOfImageFiles = length(baseFileNames);
  % Now we have a list of all files in this folder.
  
  if numberOfImageFiles >= 1
    % Go through all those image files.
    for f = 1 : numberOfImageFiles
      fullFileName = fullfile(thisFolder, baseFileNames(f).name);
      fprintf('     Processing image file %s\n', fullFileName);
    end
  else
    fprintf('     Folder %s has no image files in it.\n', thisFolder);
  end
end

28 个评论
显示 26更早的评论隐藏 26更早的评论

John 2013-8-21

编辑：John 2013-8-21

I'm fairly new to MATLAB, so please forgive my ignorance. :)

Regarding the linked discussion at the top of your post...

It seems that post details how to take a video that already exists and then processes it and outputs it to a new folder. I need to use the image files (tiff) that are in a folder and create a video from them.

Regarding the subfolder discussion here...

Does this take all the images in ALL of the folders then process them? I need the script to go into the subfolders and create the video using the images there, not take all of them from all folders and create one big video.

As I said, I'm a newbie so you may have already answered my question, I just don't know. I want to make sure I make sense in what I'm looking to do, which is hard to do by typing.

I want the script to go in this order, and it probably needs to be an overnight or weekend script. Some of the videos are already done and they are nearly one gig a piece, so with several hundred videos to do, it may take a while.

Folder 1
Subfolder A - contains 300 images, use these to make video and save in this folder.
Subfolder B - contains 300 images, use these to make video and save in this folder.
Folder 2
Subfolder A - contains 300 images, use these to make video and save in this folder.
Subfolder B - contains 300 images, use these to make video and save in this folder.
Folder 3
Subfolder A - contains 300 images, use these to make video and save in this folder.
Subfolder B - contains 300 images, use these to make video and save in this folder.
And so on until it goes through all the folders.

Thank you for any help. And I've learned alot just tinkering with the scripts you've linked to.

John 2013-8-26

在 MATLAB Online 中打开

Here's the code I used, if you want to look at it.

clear all
close all
clc
% Start with a folder and get a list of all subfolders.
% Finds and prints names of all PNG, JPG, and TIF images in 
% that folder and all of its subfolders.
clc;    % Clear the command window.
workspace;  % Make sure the workspace panel is showing.
format longg;
format compact;
% Define a starting folder.
start_path = fullfile(matlabroot, '\toolbox\images\imdemos');
% Ask user to confirm or change.
topLevelFolder = uigetdir(start_path);
if topLevelFolder == 0
  return;
end
% Get list of all subfolders.
allSubFolders = genpath(topLevelFolder);
% Parse into a cell array.
remain = allSubFolders;
listOfFolderNames = {};
while true
  [singleSubFolder, remain] = strtok(remain, ';');
  if isempty(singleSubFolder)
    break;
  end
  listOfFolderNames = [listOfFolderNames singleSubFolder];
end
numberOfFolders = length(listOfFolderNames)
% Process all image files in those folders.
for k = 1 : numberOfFolders
  % Get this folder and print it out.
  thisFolder = listOfFolderNames{k};
  fprintf('Processing folder %s\n', thisFolder);
  
  % Get PNG files.
  filePattern = sprintf('%s/*.png', thisFolder);
  baseFileNames = dir(filePattern);
  % Add on TIF files.
  filePattern = sprintf('%s/*.tif', thisFolder);
  baseFileNames = [baseFileNames; dir(filePattern)];
  % Add on JPG files.
  filePattern = sprintf('%s/*.jpg', thisFolder);
  baseFileNames = [baseFileNames; dir(filePattern)];
  numberOfImageFiles = length(baseFileNames);
  % Now we have a list of all files in this folder.
  
  if numberOfImageFiles >= 1
    % Go through all those image files.
    for f = 1 : numberOfImageFiles
      fullFileName = fullfile(thisFolder, baseFileNames(f).name);
      fprintf('     Processing image file %s\n', fullFileName);
    end
  else
    fprintf('     Folder %s has no image files in it.\n', thisFolder);
    end
      % Create a VideoWriter object to write the video out to a new, different file.
    writerObj = VideoWriter('ExampleVideo.avi');
    open(writerObj);
    
    % Read the frames back in from disk, and convert them to a movie.
    % Preallocate recalledMovie, which will be an array of structures.
    % First get a cell array with all the frames.
    allTheFrames = cell(numberOfFrames,9);
    allTheFrames(:) = {zeros(vidHeight, vidWidth, 3, 'uint8')};
    % Next get a cell array with all the colormaps.
    allTheColorMaps = cell(numberOfFrames,1);
    allTheColorMaps(:) = {zeros(256, 3)};
    % Now combine these to make the array of structures.
    recalledMovie = struct('cdata', allTheFrames, 'colormap', allTheColorMaps)
    for frame = 1 : numberOfFrames
      % Construct an output image file name.
      outputBaseFileName = sprintf('Frame %4.4d.png', frame);
      outputFullFileName = fullfile(outputFolder, outputBaseFileName);
      % Read the image in from disk.
      thisFrame = imread(outputFullFileName);
      % Convert the image into a "movie frame" structure.
      recalledMovie(frame) = im2frame(thisFrame);
      % Write this frame out to a new video file.
      writeVideo(writerObj, thisFrame);
    end
    close(writerObj);
    % Get rid of old image and plot.
    delete(hImage);
    delete(hPlot);
    % Create new axes for our movie.
    subplot(1, 3, 2);
    axis off;  % Turn off axes numbers.
    title('Movie recalled from disk', 'FontSize', fontSize);
    % Play the movie in the axes.
    movie(recalledMovie);
    % Note: if you want to display graphics or text in the overlay
    % as the movie plays back then you need to do it like I did at first
    % (at the top of this file where you extract and imshow a frame at a time.)
    msgbox('Done with this demo!');
end

John 2013-8-27

在 MATLAB Online 中打开

It works!!!

I used the below code and tested it with test files with no problems. The only question I have now is how to set the resolution. How can I set it to be, say, 1280x960, or 640x480?

clear all
close all
clc
% Start with a folder and get a list of all subfolders.
% Finds and prints names of all PNG, JPG, and TIF images in 
% that folder and all of its subfolders.
clc;    % Clear the command window.
workspace;  % Make sure the workspace panel is showing.
format longg;
format compact;
% Define a starting folder.
start_path = fullfile(matlabroot, '\toolbox\images\imdemos');
% Ask user to confirm or change.
topLevelFolder = uigetdir(start_path);
if topLevelFolder == 0
  return;
end
% Get list of all subfolders.
allSubFolders = genpath(topLevelFolder);
% Parse into a cell array.
remain = allSubFolders;
listOfFolderNames = {};
while true
  [singleSubFolder, remain] = strtok(remain, ';');
  if isempty(singleSubFolder)
    break;
  end
  listOfFolderNames = [listOfFolderNames singleSubFolder];
end
numberOfFolders = length(listOfFolderNames)
% Process all image files in those folders.
for k = 1 : numberOfFolders
  % Get this folder and print it out.
  thisFolder = listOfFolderNames{k};
  fprintf('Processing folder %s\n', thisFolder);
  
  % Get PNG files.
  filePattern = sprintf('%s/*.png', thisFolder);
  baseFileNames = dir(filePattern);
  % Add on TIF files.
  filePattern = sprintf('%s/*.tif', thisFolder);
  baseFileNames = [baseFileNames; dir(filePattern)];
  % Add on JPG files.
  filePattern = sprintf('%s/*.jpg', thisFolder);
  baseFileNames = [baseFileNames; dir(filePattern)];
  numberOfImageFiles = length(baseFileNames);
  % Now we have a list of all files in this folder.
  
  if numberOfImageFiles >= 1
    % Go through all those image files.
    for f = 1 : numberOfImageFiles
      fullFileName = fullfile(thisFolder, baseFileNames(f).name);
      fprintf('     Processing image file %s\n', fullFileName);
        end
          jpegFiles = dir(strcat(thisFolder,'\*.jpg'));
          VideoFile=strcat(thisFolder,'\TestC');
          writerObj = VideoWriter(VideoFile);
          fps= 10; 
          writerObj.FrameRate = fps;
          open(writerObj);
          for t= 1:length(jpegFiles)
              Frame=imread(strcat(thisFolder,'\',jpegFiles(t).name));
              writeVideo(writerObj,im2frame(Frame));
          end
          close(writerObj);
         else
      fprintf('     Folder %s has no image files in it.\n', thisFolder);
      end
end

John 2013-9-11

在 MATLAB Online 中打开

Having another problem with this... It works flawlessly for jpeg files, but when I try to change it to work with tif files, it gives an error. How would I need to change the code to allow it to work with tif files?

if numberOfImageFiles >= 1
    
    for f = 1 : numberOfImageFiles
      fullFileName = fullfile(thisFolder, baseFileNames(f).name);
      fprintf('     Processing image file %s\n', fullFileName);
        end
          jpegFiles = dir(strcat(thisFolder,'\*.jpg'));
          VideoFile=strcat(thisFolder,'\1280x960');
          writerObj = VideoWriter(VideoFile);
          fps= 1; 
          writerObj.FrameRate = fps;
          open(writerObj);
          for t= 1:length(jpegFiles)
              Frame=imread(strcat(thisFolder,'\',jpegFiles(t).name));
              Frame = imresize(Frame, [1280, 960]);
              writeVideo(writerObj,im2frame(Frame));
          end
          close(writerObj);

It seems that there is a problem with the im2frame command. Guessing it doesn't work with tif files? Here's the error I'm getting.

Error using im2frame
Can only make movie frames from image matrices of type double or uint8
Error in test (line 71)
            writeVideo(writerObj,im2frame(Frame))

Image Analyst 2013-11-26

Never saw a message. I don't get or use email for this account. Why don't you start a new discussion and post some images and your code?

John 2013-11-26

Sorry, didn't know. I posted the new question here

请先登录，再进行评论。

Use images to create video, script to read through hundreds of folders to do it

1 个评论
显示 -1更早的评论隐藏 -1更早的评论

采纳的回答

28 个评论
显示 26更早的评论隐藏 26更早的评论

更多回答（0 个）

另请参阅

类别

标签

产品

Community Treasure Hunt

Use images to create video, script to read through hundreds of folders to do it

1 个评论 显示 -1更早的评论隐藏 -1更早的评论

采纳的回答

28 个评论 显示 26更早的评论隐藏 26更早的评论

更多回答（0 个）

另请参阅

类别

标签

产品

Community Treasure Hunt

1 个评论
显示 -1更早的评论隐藏 -1更早的评论

28 个评论
显示 26更早的评论隐藏 26更早的评论