Ignore:
Timestamp:
Jul 16, 2024, 9:57:54 AM (4 months ago)
Author:
sommeria
Message:

script_delete_PCO added

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/script_delete_rdvision.m

    r1159 r1160  
    8585                if exist(ExtractFolder,'dir') && exist(PngFolder,'dir')
    8686                    filename_seq=fullfile(ExtractFolder,'im.seq');
     87                    NumberOfFrames=0;
    8788                    try
    88                     s=ini2struct(filename_seq);
    89                     FileInfo=s.sequenceSettings;
    90                     if isfield(s.sequenceSettings,'numberoffiles')
    91                         NumberOfFrames=str2double(s.sequenceSettings.numberoffiles);
    92                     else
    93                         status='bad seq file';
    94                     end
     89                        s=ini2struct(filename_seq);
     90                        FileInfo=s.sequenceSettings;
     91
     92                        if isfield(s.sequenceSettings,'numberoffiles')
     93                            NumberOfFrames=str2double(s.sequenceSettings.numberoffiles);
     94                        else
     95                            status='bad seq file';
     96                        end
    9597                    catch ME
    9698                        disp(['error in ' filename_seq])
    9799                    end
    98                     DirPng=dir(PngFolder);
     100                    DirPng=dir(PngFolder);         
     101
    99102                    if numel(DirPng)==NumberOfFrames+2
    100                         Checkdelete=1;
     103                        PngCells=struct2cell(DirPng);
     104                        mm=cell2mat(PngCells(4,:));% check the sizes of extracted images
     105                        sizemax=max(mm);
     106                        sizemin=min(mm(3:end));
     107                        disp(['max size(Mbytes)=' num2str(sizemax/1000000)]);
     108                        if min(mm(3:end))<0.9*sizemax
     109                            status=['WARNING' 'min size(Mbytes)=' num2str(sizemin/1000000)];
     110                        else
     111                            Checkdelete=1;% approve deletion of the source bin files
     112                        end
    101113                    else
    102114                        status=['extraction not finished,' num2str(numel(DirPng)-2) ' images extracted'];
     
    141153    end
    142154end
     155'END'
Note: See TracChangeset for help on using the changeset viewer.