file_print.m

本人收集的一些有关matlab的代码程序设计 也不知道改选什么分类

function file_print(fname)
%FILE_PRINT 函数用来演示文件操作，给定一个文件名 fname, 则可以打印
%   出带有行号的该文件的清单。如果不给出 fname, 则将允许用户用对话
%   框选择文件名，然后打印清单。

%Designed by Prof D Xue (c) 2000
if nargin==1
   f_id=eval(['fopen(''' fname,'.m'',''r'')']);
else   
   [fname,fpath]=uigetfile('*.m','Please enter a file name');
   f_id=fopen([fpath,fname],'r');
end
i=0;
while feof(f_id)==0
   strText=fgetl(f_id);
   i=i+1;
   disp(sprintf('%4d: %s',i,strText))
end   
fclose(f_id);