enderton/Diagnostics/ReadVariables.m

function varcell = ReadVariables(filename)

% Function: ReadVariables
% Author:   Daniel Enderton
%
% Input Fields:
%
%   Field        Type        (Brief) Description
%   -----------------------------------------------------------------------
%   filename     string      File name to parse for variables.
%
% Output Fields:
%
%   Field        Type        (Brief) Description
%   -----------------------------------------------------------------------
%   varcell      cell array  List of variables in file.
%
% Descripton:
%   This function takes a text file (likely Matlab .m file) and parses it,
%   returning a cell array of all variables in the file where variables are
%   defined by <variable_name> = <variable_data>.  If a line has no equal
%   signs in it, it will be ignored.

varcell = {};
ivar = 1;
fid = fopen(filename,'r');
EndFile = 0;
while ~EndFile
    line = fgetl(fid);
    if ~ischar(line)
        EndFile = 1;
    else
        line = strrep(line,' ','');
        if length(line) ~= 0
            if ~isequal(line(1),'%')
                variablename = line(1:find(line == '=')-1);
                if length(variablename) > 0
                    varcell{ivar} = variablename;
                    ivar = ivar+1;
                end
            end    
        end
    end
end
fclose(fid);
1	enderton	1.1	function varcell = ReadVariables(filename)
2
3			% Function: ReadVariables
4			% Author: Daniel Enderton
5			%
6			% Input Fields:
7			%
8			% Field Type (Brief) Description
9			% -----------------------------------------------------------------------
10			% filename string File name to parse for variables.
11			%
12			% Output Fields:
13			%
14			% Field Type (Brief) Description
15			% -----------------------------------------------------------------------
16			% varcell cell array List of variables in file.
17			%
18			% Descripton:
19			% This function takes a text file (likely Matlab .m file) and parses it,
20			% returning a cell array of all variables in the file where variables are
21			% defined by <variable_name> = <variable_data>. If a line has no equal
22			% signs in it, it will be ignored.
23
24			varcell = {};
25			ivar = 1;
26			fid = fopen(filename,'r');
27			EndFile = 0;
28			while ~EndFile
29			line = fgetl(fid);
30			if ~ischar(line)
31			EndFile = 1;
32			else
33			line = strrep(line,' ','');
34			if length(line) ~= 0
35			if ~isequal(line(1),'%')
36			variablename = line(1:find(line == '=')-1);
37			if length(variablename) > 0
38			varcell{ivar} = variablename;
39			ivar = ivar+1;
40			end
41			end
42			end
43			end
44			end
45			fclose(fid);