countdlm.m

细胞生长结构可视化工具箱-MATLAB Toolbox1999.zip

% function count = countdlm(filename,dlm)
%
% Counts number of delimetrs on first line

function count = countdlm(filename,dlm)

eol = 10;

count=0;

file = fopen(filename);
if file ~= -1
	l = fgets(file);	% Obtain entire string of labels
	
	ie=1;			% end index of current string

	finished = 0;		% flag to detect when end of line is reached	
	while(finished == 0) 
	
		while (l(ie) ~= dlm) & (l(ie) ~= eol)	% find next delimeter
			ie = ie+1;
      end	
      if l(ie)==dlm
         count = count+1;
      end
      if l(ie)==eol
         finished = 1;
      end
      ie=ie+1;
   end
end