% исправление имён файлов MAGDAS
% сдвиг суток = 7168

dTcorr=7168;

Tc=datenum(2025,09,13);

path_old_file='d:\Paratunka\Data\MagDas\2025\arc\';
path_new_file='d:\Paratunka\Data\MagDas\2025\';

Ti=Tc-dTcorr;   % дата в именах исходных файлов

file_old_M=[path_old_file 'M' datestr(Ti,'yymmdd') '.PTK'];
file_old_S=[path_old_file 'S' datestr(Ti,'yymmdd') '.PTK'];

file_old_new_M=[path_old_file 'M' datestr(Ti,'yymmdd') '_M' datestr(Tc,'yymmdd') '.PTK'];
file_old_new_S=[path_old_file 'S' datestr(Ti,'yymmdd') '_S' datestr(Tc,'yymmdd') '.PTK'];

file_new_M=[path_new_file 'M' datestr(Tc,'yymmdd') '.PTK'];
file_new_S=[path_new_file 'S' datestr(Tc,'yymmdd') '.PTK'];

% делаем копию файлов со старой и новой датами в имени
fid=fopen(file_old_M,'r');
if fid==-1 
    disp(['!!! Не могу найти файл ... ' file_old_M ' ... пропускаю'])
else
    tmp=fread(fid); fclose(fid);
    disp(['!!! Копирую ... ' file_old_M ' -> ' file_old_new_M])
    copyfile(file_old_M,file_old_new_M);
    disp(['!!! Переименовываю ... ' file_old_M ' -> ' file_new_M])
    fid=fopen(file_new_M,'w'); fwrite(fid,tmp); fclose(fid);
end
fid=fopen(file_old_S,'r');
if fid==-1 
    disp(['!!! Не могу найти файл ... ' file_old_S ' ... пропускаю'])
else
    tmp=fread(fid); fclose(fid);
    disp(['!!! Копирую ... ' file_old_S ' -> ' file_old_new_S])
    copyfile(file_old_S,file_old_new_S);
    disp(['!!! Переименовываю ... ' file_old_S ' -> ' file_new_S])
    fid=fopen(file_new_S,'w'); fwrite(fid,tmp); fclose(fid);
end
