1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| function repinfile(fname,C,R)
error(nargchk(3,3,nargin));
C = cellstr(C);
R = cellstr(R);
if numel(C)~=numel(R)
error('Number of characters to replace must match in both entries');
end
fid = fopen(fname,'r');
if fid==-1,error('Unable to open "%s"',fname);end
X = fread(fid);
fclose(fid);
for n=1:numel(C)
X = strrep(X,C{n},R{n});
end
[pname,fname,ext] = fileparts(fname);
fname = ['new_' fname ext];
fid = fopen(fullfile(pname,fname),'w');
if fid==-1,error('Unable to open "%s"',fname);end
fwrite(fid,X);
fclose(fid); |
Partager