How to find the lines of two words repeated many times in a .txt file

I'm trying to find a two words (DATA & END ) repeated many times in a .txt file how I can get their positions or in any lines they are exist because I want to bring the numbers which are between these two words

this is a part of the file

-- Coefficient of friction (for calculation of temperature) -- SchmierTyp 0:Oil 1:Grease 2:Dry :TABLE FUNCTION ReibKoef INPUT X SchmierTyp TREAT

DATA

1      2     3
0,01  0,02  0,03

END

-- Coefficient of friction (for calculation of temperature) -- SchmierTyp 0:Oil 1:Grease 2:Dry :TABLE FUNCTION ReibKoef INPUT X SchmierTyp TREAT

DATA

1      2     3
0,01  0,02  0,03

END

and I'm trying to do this by typing

haystack = fopen('h1.dat','r');

needle = 'DATA';

line = 0;

found = false;

while ~feof(haystack)

    tline = fgetl(haystack);

    line = line + 1;

    if ischar(tline) && ~isempty(strfind(tline, needle))

        found = true;

        break;
    end

end

if ~found

    line = NaN;

end

Thanks in advance

[Guillaume]

At first glance, your code looks correct. It will find the first line that contains 'DATA'. So what exactly is the problem you are having?

[Abdelhadi To'ma]

I want to find all the lines that have DATA and END to be able to extract the numbers between the DATA and the END lines

Answer 1

[Michael Haderlein]

You just have to extend your if-structure:

if ischar(tline) 
 if found
  if strcmpi(tline,'END')
   found=false;
  else
   mydata(end+1,:)=str2num(tline);
  end
 else
  if strcmpi(tline,needle)
   found=true;
  end
 end
end

I cannot test this code right now, but it should at least serve well as starting point. Of course, you have to initialize mydata at the beginning (mydata=[];).

[Abdelhadi To'ma]

thanks a lot for your help but I think that I have found a good way for doing it

fid = fopen('h1.dat', 'rt');

s = textscan(fid, '%s', 'delimiter', '\n');

idx1 = find(strcmp(s{1}, 'DATA'), :, 'first');

idxx1 = find(strcmp(s{1}, 'END'), :, 'first');

 buffer  = s{1}(idx1(1,1)+1:idxx1(1,1)-1);

dataTxt = sprintf('%s\n',buffer{:});

data = textscan(dataTxt,'%f %f %f');

d=cell2mat(data);

fclose(fid);