版块导航: 正在加载中...

登录注册

应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜

返回列表

当前主题已经存档。

fspdlh

金虫 (正式写手)

应助: 0 (幼儿园)
金币: 345.2
红花: 3
帖子: 522
在线: 4小时
虫号: 578902
注册: 2008-07-04

[交流] 【原创】MATLAB修改文件名已有1人参与

用MATLAB做的一个修改一个文件夹和它的子文件夹名称的程序，共享之，就是把文件名中的一个字符串用另一个字符串代替，其中的文件夹中各文件遍历方法我觉得是可以借鉴的。

是否修改子文件夹中的文件名由第四个变量决定，1则修改，空值不修改。
function RenameFiles(old_string,new_string,filepath,varargin)
%Rename files

%--------------------------------------------------------------------------
%Paraments Initialization
%Rename subfolder files or not
if nargin==3
sub_tag=0;
elseif nargin==4 && isequal(varargin{1}(

,'s')
sub_tag=1;
else
error('Input paraments sum error');
end
%filepath initialization
if filepath(end)=='\'
filepath=filepath(1:end-1)
end
%--------------------------------------------------------------------------
%Rename current folder
files=dir(filepath);
for i=1:size(files)
filename=files(i).name;
if ~isempty(strfind(filename,old_string))
      newfilename=strrep(filename,old_string,new_string);
      movefile(cat(2,filepath,'\',filename),cat(2,filepath,'\',newfilename));
end
end
%--------------------------------------------------------------------------
%Rename subfolder
if sub_tag==1
for i=1:size(files)
      if files(i).isdir==1 && files(i).name(1)~='.'
         newfilepath=cat(2,filepath,'\',files(i).name);
         RenameFiles(old_string,new_string,newfilepath,'s');
      end
end
end
%--------------------------------------------------------------------------
end%End of function RenameFile

回复此楼

» 猜你喜欢

1楼 2010-04-08 00:17:52

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

ylzhang508

金虫 (小有名气)

应助: 1 (幼儿园)
金币: 932.6
帖子: 150
在线: 103.4小时
虫号: 548548
注册: 2008-04-19
专业: 光学

学习一下