readascii.m

来自「TSTOOL应用软件,内有说明文件,可以适当修改,应用比较方便.」· M 代码 · 共 17 行

function l = readascii(filename)

% l = readascii(filename)
% read each line of an ASCII file into list l

l = list;		% create empty list
fid = fopen(filename, 'r');

if fid ~= -1
	while 1
		line = fgetl(fid);
		if ~isstr(line), break, end
			l = append(l, line);
		end
	fclose(fid);
end