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

% 27.07.2024 - устанавливаются актуальные дата/время создания файла
% 10.08.2024 - переименование в цикле

dTcorr=7168;

T1=datenum(2025,07,18); T2=datenum(2025,07,30);
Nday=T2-T1+1;

for kd=1:Nday
Tc=T1+kd-1; % текущая дата
Ti=Tc-dTcorr;   % дата в именах исходных файлов

if ispc
    home_dir='d:/';
else
    home_dir='/home/observers/';
end

% !!! править год
path_old_file=[home_dir 'paratunka/data/induction/2025/0000_ini/' datestr(Ti','yymmdd')];
path_new_file=[home_dir 'paratunka/data/induction/2025/' datestr(Tc','yymmdd')];

if ~exist(path_old_file,'dir')
    disp(['!!! Не могу найти папку с исходными файлами - ' path_old_file])
    return
end
if ~exist(path_new_file,'dir')
    mkdir(path_new_file)
end

copyfile(path_old_file,path_new_file) % копируем файлы в новую папку
copyfile('d:\Paratunka\induction\setFileDate.m',path_new_file) % компируем ф-цию

cd(path_new_file)
D=dir('*.PTK'); % считываем список файлов
nf=length(D);   % кол-во файлов
disp(['--------------- ' datestr(Tc) ' ------------------'])
for kf=1:nf
    new_name=['FM' datestr(Tc,'yymmdd') D(kf).name(9:12) '.PTK'];
    disp(['!!! Переименовываю ... ' D(kf).name ' -> ' new_name])
%     copyfile(D(kf).name,new_name)
%     movefile(D(kf).name,new_name)
    fid=fopen(D(kf).name,'r'); tmp=fread(fid); fclose(fid);
    fid=fopen(new_name,'w'); tmp=fwrite(fid,tmp); fclose(fid);
    % меняем дату/время файла
    setFileDate(new_name,D(kf).datenum+dTcorr-1)
    delete(D(kf).name);
end
delete('setFileDate.m'); % убираем m-файл
cd([home_dir 'paratunka/induction/'])
end

