function comma2dot()
%COMMA2DOT   converts comma decimal separator data into dot decimal separator data
%   COMMA2DOT() opens an ASCII file finds all comma characters, changes
%   them into dot characters and saves the data as a new ASCII file

%   V 1.0: Andreas Goser, 7.4.2001

[fname, pname]=uigetfile('*.*', 'ASCII data file with comma decimal separator');
if fname
   data=char(textread([pname, fname], '%s', 'delimiter', '\n', 'whitespace', ''));

   for k=1:size(data, 1)
      f=findstr(data(k, :), ',');
      data(k, f)='.';
   end

   ind=findstr(fname, '.');
   fid=fopen([pname, fname(1:ind-1), '_dot', fname(ind:length(fname))], 'w');
   for k=1:size(data, 1)-1
      fprintf(fid, '%s\r\n', data(k, :));
   end
   fprintf(fid, '%s', data(size(data, 1), :));
   fclose(fid);

   disp([pname, fname(1:ind-1), '_dot', fname(ind:length(fname)), ' written']);
end