function [y, yl] = finddata(num, file) 
  fid = fopen(file, 'r');
  str = fgetl(fid);
  count = 0;
  yl = [];
  y = [];
  while not(str == -1) 
      v = findstr(str, ' ');
      if (str2num(str(1 : v(1) - 1)) == num)
          name = str(v(1)+1 : v(2)-1);
          left = str2num(str(v(2)+1 : v(3)-1));
          right = str2num(str(v(3)+1 : length(str)));
          count = count + 1;
          yl(count) = right - left + 1;
         o y(count, 1 : right-left+1) = cut(name, left, right);
      end
      str = fgetl(fid);
  end
  fclose(fid);