Matlab - Eliminar Canales de Audio de Archivo de Video

clc

clear all

a= 'VideoConSonido.avi';

Video=VideoReader(a);

try

    isequal(audioinfo(a),1);

    opcion=questdlg('Se detecto ficheros de audio en el video, se requieren eliminarlos y volver a cargar el video para seguir usando el sistema, desea eliminarlos?','cerrar','Si','No','No');

    if strcmp(opcion,'Si');

        [file,path] = uiputfile('VideoModificado.avi','Guardar Archivo...');

        VideoSinSonido=strcat(path,file);

        hmfr=vision.VideoFileReader(a,'AudioOutputPort',false);

        hmfw=vision.VideoFileWriter(VideoSinSonido,'AudioInputPort',false,'FileFormat',...

            'AVI','FrameRate',hmfr.info.VideoFrameRate,'VideoCompressor','MJPEG Compressor');

        helpdlg('Se esta procesando el video.....','Un Momento por favor');

        while ~isDone(hmfr)

                videoFrame = step(hmfr);

                step(hmfw,videoFrame);

        end

        release(hmfw);

        release(hmfr);

        helpdlg('Archivo Modificado Correctamente','Modificacion Exitosa');

    else

        close();

    end

catch

    warndlg('Se ha producido un error en el codigo');

end