显然,可以使用fgetl或类似函数在文件中循环并递增计数器,但有没有一种方法可以在不进行此类循环的情况下确定文件中的行数?
我喜欢使用以下代码来完成任务
fid = fopen('someTextFile.txt', 'rb');
%# Get file size.
fseek(fid, 0, 'eof');
fileSize = ftell(fid);
frewind(fid);
%# Read the whole file.
data = fread(fid, fileSize, 'uint8');
%# Count number of line-feeds and increase by one.
numLines = sum(data == 10) + 1;
fclose(fid);
如果你有足够的内存一次读取整个文件,这是非常快的。它应该适用于Windows和Linux风格的行尾。
编辑:我衡量了迄今为止提供的答案的表现。以下是确定包含100万个双值(每行一个值)的文本文件的行数的结果。平均10次尝试。
Author Mean time +- standard deviation (s)
------------------------------------------------------
Rody Oldenhuis 0.3189 +- 0.0314
Edric (2) 0.3282 +- 0.0248
Mehrwolf 0.4075 +- 0.0178
Jonas 1.0813 +- 0.0665
Edric (1) 26.8825 +- 0.6790
因此,使用Perl并将所有文件作为二进制数据读取的方法是最快的。如果Perl内部也同时读取文件的大块,而不是逐行循环(只是猜测,对Perl一无所知),我不会感到惊讶。
使用简单的fgetl()
-循环比其他方法慢25-75倍。
Edit 2:包括Edric的第二种方法,它比Perl解决方案快得多。
我认为循环实际上是最好的——到目前为止,建议的所有其他选项要么依赖外部程序(需要错误检查;需要str2num;更难调试/跨平台运行等),要么一次性读取整个文件。循环并没有那么糟糕。这是我的变体
function count = countLines(fname)
fh = fopen(fname, 'rt');
assert(fh ~= -1, 'Could not read: %s', fname);
x = onCleanup(@() fclose(fh));
count = 0;
while ischar(fgetl(fh))
count = count + 1;
end
end
编辑:乔纳斯正确地指出,上面的循环真的很慢。这是一个更快的版本。
function count = countLines(fname)
fh = fopen(fname, 'rt');
assert(fh ~= -1, 'Could not read: %s', fname);
x = onCleanup(@() fclose(fh));
count = 0;
while ~feof(fh)
count = count + sum( fread( fh, 16384, 'char' ) == char(10) );
end
end
它仍然没有wc -l
那么快,但也不是灾难。
我在这里找到了一个不错的技巧:
if (isunix) %# Linux, mac
[status, result] = system( ['wc -l ', 'your_file'] );
numlines = str2num(result);
elseif (ispc) %# Windows
numlines = str2num( perl('countlines.pl', 'your_file') );
else
error('...');
end
其中'countlines.pl'
是一个perl脚本,包含
while (<>) {};
print $.,"n";
您可以一次读取整个文件,然后计算读取的行数。
fid = fopen('yourFile.ext');
allText = textscan(fid,'%s','delimiter','n');
numberOfLines = length(allText{1});
fclose(fid)
我建议使用外部工具。例如,一个名为cloc
的应用程序,您可以在这里免费下载。
在linux上,只需键入cloc <repository path>
即可获得
YourPC$ cloc <directory_path>
87 text files.
81 unique files.
23 files ignored.
http://cloc.sourceforge.net v 1.60 T=0.19 s (311.7 files/s, 51946.9 lines/s)
-------------------------------------------------------------------------------
Language files blank comment code
-------------------------------------------------------------------------------
MATLAB 59 1009 1074 4993
HTML 1 0 0 23
-------------------------------------------------------------------------------
SUM: 60 1009 1074 5016
-------------------------------------------------------------------------------
他们还声称它应该适用于窗户。
Edric答案中的行数错误问题可以用这个解决。
function count = countlines(fname)
fid = fopen(fname, 'r');
assert(fid ~= -1, 'Could not read: %s', fname);
x = onCleanup(@() fclose(fid));
count = 0;
% while ~feof(fid)
% count = count + sum( fread( fid, 16384, 'char' ) == char(10) );
% end
while ~feof(fid)
[~] = fgetl(fid);
count = count + 1;
end
end