% Remove the non-numeric header of each file

files = dir('*.txt');
Nfiles = length(files);

for j = 1:Nfiles
    filename = getfield(files(j),'name');
    Nfilename = length(filename);
    fid=fopen(filename) ; % the original file
    fidd=fopen(['..\' filename(13:Nfilename)],'w') ; % the new file
    while ~feof(fid) ; % reads the original till last line
        tline=fgets(fid) ; %
        if isletter(tline(1))==1 ;
        else
            fwrite(fidd,tline) ;
        end
    end
    fclose(fid);
    fclose(fidd);
end
