wolffd@0: %makes textfiles for already found wavs 
wolffd@0: 
wolffd@0: clear
wolffd@0: global globalvars;
wolffd@0: addpath('..\vogelst\k-band250905')
wolffd@0: sourcedir='F:\Aufnahmen';
wolffd@0: %sourcedir='F:\Ample';
wolffd@0: %sourcedir='M:\PrograMathe\matlab\work\hiwi\vogelst\testmaterial\online2';
wolffd@0: 
wolffd@0: segmentsdir='F:\viele_einzelne_strophen\blaumeise\typ1';
wolffd@0: 
wolffd@0: %segmentsdir='F:\viele_einzelne_strophen\fringila_coelebs_buchfink\tst';
wolffd@0: %segmentsdir='M:\PrograMathe\matlab\work\hiwi\vogelst\testmaterial\online';
wolffd@0: 
wolffd@0: 
wolffd@0: 
wolffd@0: %---------------------------------------------z-------------zugehörige dateien suchen 
wolffd@0: allpaths=genpath(sourcedir);
wolffd@0: data_names=dir(strcat(segmentsdir,'\*.wav'));
wolffd@0: psourcedirs = explode(';',allpaths);
wolffd@0: for i = 1:length(data_names)
wolffd@0:     ldata_names{i} = data_names(i).name;
wolffd@0: end
wolffd@0: 
wolffd@0: names_done = [];
wolffd@0: relsource_files = {};
wolffd@0: for i = 1:length(psourcedirs)
wolffd@0:     actdir = dir(strcat(psourcedirs{i},'\*.wav'));
wolffd@0:     ldata_names = ldata_names(setdiff(1:length(ldata_names),names_done));
wolffd@0:     for j = 1:length(ldata_names)
wolffd@0:         for k = 1:length(actdir)
wolffd@0:             if(strncmp(actdir(k).name,ldata_names{j},length(ldata_names{j})-(7+2*6+1+3))) && ...
wolffd@0:                     strncmp(substr(ldata_names{j},-(7+4),1),'-',1)
wolffd@0:                 names_done = [names_done j];
wolffd@0:                 relsource_files= cat(1,relsource_files,{[strcat(psourcedirs{i},'\',actdir(k).name)] [strcat(segmentsdir,'\',ldata_names{j})]});
wolffd@0:             end
wolffd@0:         end
wolffd@0:     end
wolffd@0: end
wolffd@0: 
wolffd@0: 
wolffd@0: for i=1:size(relsource_files,1)
wolffd@0:      newfilename=char(relsource_files(i,2));
wolffd@0:      position(i,2)= hhmmss_to_s(substr(newfilename,-(7+3),6));
wolffd@0:      position(i,1)= hhmmss_to_s(substr(newfilename,-(7+3+7),6));
wolffd@0:      
wolffd@0:         filetoopen=strcat(newfilename,'.txt');
wolffd@0:         ftoex=dir(filetoopen);
wolffd@0:         if(length(ftoex)==0)
wolffd@0:            FID = fopen(filetoopen,'w');
wolffd@0:            fprintf(FID,'%s','annotations for ');
wolffd@0:            fprintf(FID,'%s',newfilename);
wolffd@0:            fprintf(FID,'\n');
wolffd@0:            fprintf(FID,'%s','sourcefile available at');
wolffd@0:            fprintf(FID,'\n');
wolffd@0:            fprintf(FID,'%s',char(relsource_files(i,1)));
wolffd@0:            fprintf(FID,'\n');
wolffd@0:            fprintf(FID,'%s','time of occurrence in hhmmss format:');
wolffd@0:            fprintf(FID,'\n');
wolffd@0:            fprintf(FID,'%s',s_to_hhmmss(position(i,1)));
wolffd@0:            fprintf(FID,'%s','-');
wolffd@0:            fprintf(FID,'%s',s_to_hhmmss(position(i,2)));
wolffd@0:            fprintf(FID,'\n');
wolffd@0:            fprintf(FID,'%s','in seconds:');
wolffd@0:            fprintf(FID,'\n');
wolffd@0:            fprintf(FID,'%s',sprintf('%d',position(i,1)));
wolffd@0:            fprintf(FID,'\n');
wolffd@0:            fprintf(FID,'%s',sprintf('%d',position(i,2)));
wolffd@0:            fprintf(FID,'\n');
wolffd@0:            fprintf(FID,'%s','comments:');
wolffd@0: 
wolffd@0:            fclose(FID);
wolffd@0:         end
wolffd@0: end
wolffd@0: