hello esther
that was not my easiest code of the day, but finally managed to get it done !
attached my input / output text files
hope it helps !
clc
clearvars
Filename_in = 'dataABC.txt';
Filename_out= 'dataABC_reduced.txt';
[Names,str_all] = extract_data(Filename_in)
% export to text file
writecell(str_all, Filename_out, "FileType", "text");
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function [Names,str_all] = extract_data(Filename)
fid = fopen(Filename);
tline = fgetl(fid);
% initialization
k = 0;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 1st loop to collect all the names
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
while ischar(tline)
if contains(tline,'was in top')
k = k+1; % loop over line index
Name{k} = deblank(extractBefore(tline,'was in top'));
end
tline = fgetl(fid); % lower make matlab not case sensitive
end
Names = unique(Name,'stable');
Names = Names';
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 2nd loop to do the hard work
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% initialization
k = 0;
q = 0;
fid = fopen(Filename);
tline = fgetl(fid);
str1 = [];
str2 = [];
Name_old ='bbb';
row = 1;
while ischar(tline)
% retrieve line
if contains(tline,'was in top') % lower make matlab not case sensitive
k = k+1; % loop over line index
Name = deblank(extractBefore(tline,'was in top'));
if k>1 && strcmp(Name,Name_old) == 0
str_all{row} = [Names{row} '..' str1 ' ' str2]; % first concatenations (last one is done at the very end of the file)
str1 = []; % reset
str2 = []; % reset
row = row+1; % increment
end
% retrieve all numeraical contents
x = regexp(tline, '.*?(\d+(\.\d+)*)', 'tokens' );
A = [x{:}];
str1 = [str1 ' ' A{1} ':' A{2} '/' num2str(round(str2num(A{5}))) '%'];
end
if contains(tline,'Your choice on ') % lower make matlab not case sensitive
q = q+1; % loop over line index
date = extractBetween(tline,'Your choice on',':');
month = extractBetween(date,'-','-');
tmp = extractAfter(date,'-');
day = extractAfter(tmp,'-');
sign = extractBetween(tline,'(',')');
str2 = [str2 char(month) char(day) '(' char(sign) ')'];
end
Name_old = Name; % for the check of name change (increment row index)
tline = fgetl(fid); % lower make matlab not case sensitive
end
% last and final concatenation
str_all{row} = [Names{row} '..' str1 ' ' str2]; % last and final concatenation
str_all = str_all';
fclose(fid);
end
