pkg load io
pkg load financial
prvnidenmereni='11/11/2019'; %%mesic/den/rok
%%odstraneni prazdnych znaku
%jmeno=strcat(char(jmeno));  %%%odstraneni prazdnych znaku
%jmeno=cellstr(jmeno);   %%odstraneni prazdnych znaku - vraceni do cell
smazat={'.dat',' ','casacc','casnap'};
jmeno_output=cellfun(@(x) erase(x,smazat),jmeno,'UniformOutput',0); %odstraneni znaku
smazat={' ','1','2','3','4','5','6','7','8','9','0'};
smer=cellfun(@(x) erase(x,smazat),signal,'UniformOutput',0); %smer, vyjadreni ze signalu (smazani znaku)

nuly_pro_otacky=num2cell(zeros([length(jmeno) 1]));

for k=1:length(jmeno)
  rok=char(jmeno_output{k})(1:4);
  mesic=char(jmeno_output{k})(6:7);
  den=char(jmeno_output{k})(9:10);
  datum{k,1}=strcat(den,'.',mesic,'.',rok);

  jmeno_output{k}=strcat(jmeno_output{k},'rmsvel');
  
 % casovyrozsahzacatek{k,1}=tmin{k,1};
  %casovyrozsahkonec{k,1}=tmax{k,1};
  
  denodprvnihomereni{k,1}=daysact(prvnidenmereni,strcat(num2str(mesic),'/',num2str(den),'/',rok));
  %fmin_output{k,1}=fmin;
  %fmax_output{k,1}=fmax;
  end

sloupec1=jmeno_output;
sloupec2=datum;
sloupec3=denodprvnihomereni;
sloupec4=num2cell(RMS{1,2}); %mohutnost
sloupec5=nuly_pro_otacky;  %prazdny sloupec, pro rucni dopsani otacek
sloupec6=signal; %typ signalu
sloupec7=smer; %smer
sloupec8=nuly_pro_otacky; %prazdny sloupec pro umisteni senzoru
sloupec9=tmin;
sloupec10=tmax; %rozsah frekvenci
sloupec11=fminimum;
sloupec12=fmaximum;

output=[sloupec1, sloupec2,sloupec3,sloupec4,sloupec5,sloupec6,sloupec7,sloupec8,sloupec9,sloupec10,sloupec11,sloupec12]; %definice output


%xlsread('test.xlsx','Sheet1','A1:A9999');
%number=max(xlsread('test.xlsx','Sheet1','A1:A9999'));
%N=num2cell(((number+1):1:(number+rows(output)))');
N=num2cell(1:length(jmeno_output))';
output=[N,output];

header_output={'Index','Nazev','Datum','Den','RMS [mm/s]','Otacky [/min]','Snimac','Smer','Umisteni','t_zac [s]','t_kon [s]','Fmin [Hz]','Fmax [Hz]','Premereno','Mereni'};
cesta_output=cesta(1:end-5);
%jmeno_souboru=cesta(end-18:end-5); %%jmeno souboru pro mohutnost vibraci
%jmeno_souboru=strcat(cesta(end-18:end-5),'_otackova'); %%jmeno souboru pro otackovou

answer = questdlg('Ulozit jako mohutnost vibraci nebo RMS rychlosti pri otackove?',...
	'Ulozit jako...',...
  'Mohutnost vibraci','RMS otackova','Konec','Konec');

switch answer
    case 'Mohutnost vibraci'
        jmeno_souboru=cesta(end-18:end-5); %%jmeno souboru pro mohutnost vibraci
    case 'RMS otackova'
        jmeno_souboru=strcat(cesta(end-18:end-5),'_otackova'); %%jmeno souboru pro otackovou
end

%%% jmeno Excel souboru
nazev_output=strcat(cesta_output,'\',jmeno_souboru,'.xlsx'); 
xlswrite(nazev_output,header_output,'data','A1')
xlswrite(nazev_output,output,'data','A2')  %%pojmenovani tabulky standart








