function [fichero,fecha,hora]=captura_de_video(tiempo,fechab,horab)
c=''; %Camino de los vídeos
d=''; %Directorio actual
ficheros=[];
horas=[];
fecha='';
fec=fechab;
horanumero=strcat(horab(1:2),horab(4:5),horab(7:8));
j=1;
%PRUEBA: Le voy a meter una base de hora para seleccionar el vídeo
tc=tiempo;
tm=str2double(horab(4:5));
th=str2double(horab(1:2));
ts=tm+tc;
while ts>=60
ts=ts-60;
th=th+1;
end
tm=ts;
t=str2double(horab(7:8))+100*tm+10000*th;
d=pwd;
c=strcat(d,'\pruebas\*.avi');
f=dir(c);
[n,m]=size(f);
for i=1:n
ficheros=[ficheros;f(i).name];
%los extremos que se usan corresponden a la hora de la creación del
%vídeo
horas=[horas;str2double(ficheros(i,12:17))];
end
%Debo seleccionar el fichero según una base de tiempo que tenga, es decir,
%entre dos vídeos se debe seleccionar el más cercano.
valor=0;
j=0;
while(valor<=t & j<=length(horas))
j=j+1;
valor=horas(j);
end
if j==1
video=j;
else
if(abs(horas(j-1)-t)<=abs(abs(valor-t)))
video=j-1;
else
video=j;
end
end
fichero=ficheros(video,:);
fecha=strcat(fichero(10:11),'/',fichero(8:9),'/',fichero(4:7));
hora=strcat(fichero(12:13),':',fichero(14),fichero(15),':',fichero(16),fichero(17),'''''');
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
