fid  = fopen('T:\1-A3KOBH\june06-20009.003', 'rt');
i1= 0;i2= 0; i3= 0;i4= 0;
for i=1:100
    tline = fgetl(fid);
   if  regexp(tline, 'EPWM')
       i1= i1+1;
       epwm(i1) = cellstr(tline);
    elseif regexp(tline, 'EPLW')
        i2= i2+1;
        eplw(i2) = cellstr(tline);
    elseif regexp(tline, 'EPLJ')
        i3 = i3+1;
        eplj(i3) = cellstr(tline);
    elseif regexp(tline, 'EPAD')
        i4 = i4+1;
        epad(i4) = cellstr(tline);
    end
end
fclose(fid);