07-10.txt

来自「《MATLAB R2007基础教程》 清华大学出版社,包含电子课件,实例原文件,」· 文本 代码 · 共 10 行

fid = fopen('magic.m','r');
count = 0;
while ~feof(fid)
    line = fgetl(fid);
    if isempty(line) | strncmp(line,'%',1)
        continue
    end
    count = count + 1;
end
disp(sprintf('%d lines',count));