% Test Dummy read
% Suche nach Einlesefehler textscan

clear all
close all

filename = './dummyFile.txt'



fid = fopen(filename);

% Dummy-Reads fuer Umgang mit File Header
fgetl(fid);
fgetl(fid);
fgetl(fid);


%% Eigentliches Problem

% Table Header Data
% Table Header is one single line of double-quote delimited strings
delimiter = ';'

line = fgetl(fid);
Rawdata.Header = strsplit(line, delimiter)
Rawdata.Header

% Format-Spec aus Tebellekopf basteln
TblFmt = cell(size(Rawdata.Header));
for i = 1:numel(TblFmt)
    if( strcmpi(Rawdata.Header{i}, '"Activity"') )
        % Textmarker Variante 1
        TblFmt{i} = '%s';

    elseif( strcmpi(Rawdata.Header{i}, '"Marker"') )
        % textmarker Variante 2
        TblFmt{i} = '%s';
        
    else
        TblFmt{i} = '%f';
    end
end
formatSpec = strjoin(TblFmt, delimiter)


nrows = -1;
r = 0;
c = 0;

Result  = textscan(fid, formatSpec, nrows, 'headerlines', r, 'headercolumns', c,...
    'returnonerror', false, 'emptyvalue', 0, 'CollectOutput', true)



fclose(fid);