ファイル名：DeBlank0.m

function deblank0(TarDir)
% 指定したディレクトリ内の全てのmファイルを対象にして、行末に残ったままの空白文字を削除する。

if nargin ~= 1
    fprintf('指定したディレクトリ内の全てのmファイルを対象にして、行末に残ったままの空白文字の削除を行う。\n');
    TarDir = input('_ディレクトリを指定 => ','s');
end

if exist(TarDir,'dir')
    TarDir = strrep(TarDir,'\','/');    % ディレクトリパスのデリミタを[/]にして最後にも[/]を付ける
    if TarDir(1,end) ~= '/',    TarDir(1,end 1) = '/';      end
    DIR = dir(TarDir);
else
    error(['Non-Existence Directory => ',TarDir]);
end
for k = 1:length(DIR)
    line1 = [];                         % Buffer
    c0    = 1;                          % Counter
    if ~DIR(k).isdir
        [PATH,NAME,EXT] = fileparts([TarDir,DIR(k).name]);
        if strcmpi(EXT,'.m')
            fprintf('\n%-20s ',DIR(k).name);
            [fid,message] = fopen([TarDir,DIR(k).name],'r');
            if fid == -1,   error(message);     end
            while 1
                line0 = fgetl(fid);
                if ~ischar(line0),   break;     end
                line1{c0,1} = deblank(line0);
                if ~strcmp(line0,line1)
                    fprintf('d ',c0);
                end
                c0 = c0 1;
            end
            fclose(fid);
            [fid,message] = fopen([TarDir,DIR(k).name],'w');
            if fid == -1,   error(message);     end
            fprintf(fid,'%s\r\n',line1{:,1});
            fclose(fid);
        end
    end
end