fileread.m

实现matlab很多功能的源代码

function contents = fileread(fileName);
%FILEREAD Read the contents of a file and put it into a cell string

%	Roger Jang, 20010218

if nargin==0, selfdemo; return; end

fid = fopen(fileName);
if fid<0,
	error('Cannot open file!');
end

lineNum = 1;
while 1
	line = fgetl(fid);
	if ~isstr(line), break, end
	contents{lineNum} = xlate(line);
	lineNum = lineNum+1;
end
fclose(fid);

if exist('contents')~=1
	contents=[];
end

% ====== self demo
function selfdemo
fileName = [mfilename, '.m'];
contents = feval(mfilename, fileName);
fprintf('The contents of "%s":\n', mfilename);
for i=1:length(contents),
	fprintf('%s\n', contents{i});
end