function data = tb_file_read(file_name, data_sign, data_frac)
% tb_file_read(file_name, data_sign, data_frac)
% считывание данных из файла типа std_logic_vector с заданными параметрами
%
% file_name     - имя файла
% data_sign     - '1' signed, '0' unsigned
% data_frac     - длина дробной части слова

data    = [];
fileID  = fopen(file_name, 'r');
N = 1;

% считываем файл построчно до конца
while ~feof(fileID)
    % считываем строку
    str = fgetl(fileID);
    
    % проверка - если строка содержит только цифры
    if (all(isstrprop(str, 'digit')) == 1)
        
        % если число в знаковом формате
        if (data_sign == 1)
            % проверка положит. или отрицат. число
            if( str(1) == '0')
                data(N) = bin2dec(str(2:end))/(2^data_frac);
            else
                data(N) = (bin2dec(str(2:end)) - 2^(length(str)-1))/(2^data_frac);
            end;
        else
            data(N) = bin2dec(str)/(2^data_frac);
        end;
        
    % если строка содержит буквы
    else
        data(N) = NaN;
    end;
    N = N + 1;
end;
fclose(fileID);